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ABSTRACT 

The  INFOPLEX  database  computer  is  a  special  computer 
designed  for  large  scale  information  management.  The  infor¬ 
mation  management  functions  are  decomposed  into  a  functional 
hierarchy  implemented  by  a  hierarchy  of  micro-processors. 
Decentralized  control  mechanisms  are  used  to  coordinate  the 
activities  of  individual  modules  in  the  hierarchy. 

Before  realizing  INFOPLEX  in  hardware,  it  is  essential 
to  validate  all  the  design  details  via  a  software  test 
vehicle.  A  simulator  (SHELL)  is  built  to  provide  the  neces¬ 
sary  facilities  for  the  operating  of  this  software  test 
vehicle.  It  has  two  parts:  an  event  simulator  which 
simulates  the  operation  of  the  afore  mentioned  hardware  con¬ 
figuration;  and  an  operating  system  emulator  which  provides 
the  environment  for  testing  the  multi-threading,  parallel 
processing  application  programs. 

SHELL  facilitates  the  following  goals:  1)  the  validation, 
of  the  logic  and  algorithm  of  the  application  programs;  2) 
the  validation  of  the  multi-threaded,  distributed  control 
design  of  the  functional  hierarchy;  3)  the  investigation  of 
detailed  hardware  designs  (e.g.,  buffer  sizes);  and  4)  the 
collection  of  performance  data  as  a  basis  for  further  design 
considerations. 
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1.0  INTRODUCTION 


1.1.  INFOPLEX 

The  INFOPLEX  database  computer  is  a  special  purpose 
computer  designed  for  large-scale  information 
management.  [  Madnick  ]  The  specific  objective  of  IN¬ 
FOPLEX  includes  providing  substantial  information 
management  improvement  over  conventional  architecture 
(e.g.,  up  to  1000-fold  increases  in  throughput)  suppor¬ 
ting  very  large  complex  databases  (e.g.,  over  100  bil¬ 
lion  bytes  of  structured  data) ,  and  providing  extremely 
high  reliability. 

To  achieve  these  goals,  the  architecture  of  IN¬ 
FOPLEX  is  built  around  the  concept  of  hierarchical 
decomposition.  The  functions  of  information  management 
are  decomposed  into  a  functional  hierarchy.  Each  sub¬ 
function  with  a  level  of  the  hierarchy  is  implemented  by 
means  of  a  complex  of  processors.  Highly  parallel 
operations  at  each  level  and  among  levels  boost  the 
performance  as  well  as  the  reliability.  [.'Hsu  1] 

A  large  capacity,  cost-effective  memory  with  rapid 
access  time  is  realized  using  an  ’intelligent'  storage 
hierarchy.  With  a  high  degree  of  parallelism  in 
operation,  the  storage  hierarchy  is  able  to  support  the 
storage  requirements  of  the  INFOPLEX  functional  hierar¬ 
chy.  The  control  of  the  storage  hierarchy  is 
distributed  and  micro-processors  are  used  to  implement 
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these  control  mechanisms. 


1.2.  Scope  of  the  Current  Project 

Before  realizing  INFOPLEX  in  hardware,  it  is  essen¬ 
tial  to  validate  all  the  design  details  via  a  software 
test  vehicle.  The  current  project  is  to  design  and 
implement  a  set  of  programs  so  as  to  provide  the  neces¬ 
sary  facilities  for  the  operation  of  this  software  test 
vehicle. 

SHELL  is  a  set  of  PL/1  programs  on  an  IBM  370 
VM/CMS  system.  It  can  be  divided  logically  into  two 
parts.  The  first  is  a  special  purpose  event  simulator 
which  simulates  the  parallel  operating  environment  in 
which  a  number  of  machines  —  processors,  gateway  con¬ 
trollers  etc.  —  execute  independently  and  compete  for 
resources.  Of  specific  interest  is  the  communication 
m^hani.-.  among  the  processors.  The  interaction  among 
the  different  machines  along  the  data  path  is  detailedly  - 
tracked. 

The  simulator  can  realistically  reflect  the  actual 
operation  of  the  hardware  environment,  hence  the  hard¬ 
ware  design  can  be  tested  before  it  is  actually  built. 

In  addition,  performance  data  are  gathered  to  serve  as  a 
basis  for  further  detailed  specifications  (e.g.,  sizes 
of  various  buffers) .  Even  though  the  main  purpose  is  to 
test  the  functional  hierarchy,  some  of  the  results  can 
be  applied  to  that  of  the  storage  hierarchy  as  well. 
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The  second  part  o£  SHELL  is  an  operating  system 
emulator.  It  provides  the  parallel  operating  environ¬ 
ment  of  a  multi-processor,  multi-process  operating 
system,  as  well  as  the  facilities  of  inter-process  com¬ 
munication  and  inter-process  synchronization.  Applica¬ 
tion  programs  written  in  PL/1  can  run  directly  under 
this  emulated  operating  system. 

Thus,  the  algorithms  in  the  program  modules  of  the 
functional  hierarchy  can  be  fully  tested.  In  addition, 
since  the  simulator  provides  a  realistic  reflection  of 
the  actual  execution  speed,  the  relative  efficiencies  of 
the  different  algorithms  and  the  different  approaches  of 
functional  decomposition  can  be  measured. 

1.3.  Structure  of  this  l  er 

Following  this  inti.  ion,  Chapter  2  outlines  the 

hardware  configuration  of  INFOPLEX  and  Chapter  3 
describes  how  it  is  simulated  by  the  simulator.  Chapter 
4  describes  the  functions  of  the  local  operating  system 
in  INFOPLEX,  and  Chapter  5  describes  how  they  are 
emulated  by  the  emulator.  Chapter  6  describes  the 
program  organization  of  SHELL,  its  execution  logic,  and 
the  data  structures  it  uses.  Chapter  7  presents  the 
user-interface  aspects  of  SHELL  as  a  user's  guide.  A 
test  program  and  a  sample  simulation  session  are  in¬ 
cluded  as  examples.  Chapter  8  is  the  conclusion. 
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2 . 0  THE  HARDWARE  ENVIRONMENT  OF  INFOPLEX 


2.1.  Overview 

The  hardware  environment  of  the  INFOPLEX  datacom- 
puter  is  shown  in  Figure  2.1.  [Hsu  2]  It  is  composed 
of  multiple  processors  and  memory  modules.  Processors 
and  memory  modules  are  grouped  into  clusters,  each 
cluster  corresponding  to  a  level  in  either  the  storage 
heirarchy  or  the  functional  heirarchy.  At  each  level, 
there  is  a  common  pended  bus  that  joins  all  the  hard¬ 
ware.  For  communication  among  levels,  there  is  a  global 
bus  that  connects  to  the  local  bus  of  each  level  via  a 
gateway  controller. 

At  each  level,  a  number  of  processors  sharing  a 
large  memory  module  operate  a  multi-processor  operating 
system.  (The  local  operating  system  of  that  level.) 

Each  processor  may  have  additional  private  RAMs,  ROMs, 
or  co-processors.  The  processors  are  homogeneous  — 
each  processor  executes  the  same  operating  system  code 
to  dispatch  itself  and  there  is  no  overall  master  super¬ 
visor  processor. 

Each  data  path  connecting  to  the  local  pended  bus 
(including  that  of  the  gateway  controller)  is  buffered 
by  a  latch/buffer  so  that  each  device  can  access  the  bus 
asynchronously.  It  eliminates  the  necessity  of  special 
software  buffering  while  waiting  for  a  resource  —  the 
shared  memory  or  the  gateway  controller.  The  connection 


between  the  global  bus  and  the  gateway  controllers  is 
similar  in  nature. 

There  is  no  shared  memory  between  levels.  Data  are 
sent  from  the  processor  of  one  level,  through  the  local 
gateway  controller,  the  global  bus,  and  the  foreign 
gateway  controller  to  the  memory  module  of  the  destina¬ 
tion  level. 

The  data  transfer  from  the  processor  to  the  gateway 
controller  is  memory-mapped.  When  a  processor  wants  to 
transfer  data  to  another  level,  it  sends  the  data  to  a 
virtual  address  which  will  be  recognized  by  the  local 
gateway  controller.  (The  destination  level  will  either 
be  coded  in  the  address,  or  be  a  prefix  in  the  data 
stream.)  The  gateway  controller,  serving  as  an  entrepot 
between  the  local  bus  and  the  global  bus,  will  send  the 
data  to  the  global  bus. 

The  global  bus  is  interleaved:  data  streams  with 
different  sources  and  destinations  can  share  the  global 
bus  at  the  same  time. 

The  gateway  controller  at  the  destination  level 
will  pick  up  the  data  stream  from  the  global  bus  and 
deposit  it  (without  the  intervention  of  a  processor) 
into  the  local  shared  memory  module. 

Because  software  buffering  is  not  necessary  along 
the  path  between  the  sending  processor  and  the  destina¬ 
tion  memory,  the  data  transfer  between  two  levels  is 


immediate  in  nature.  To  maintain  a  high  throughput  rate 
of  interlevel  data  transfer,  a  special  protocol  is  set 
up  between  a  gateway  controller  and  the  local  operating 
system. 

2.2.  GC-LOS  Protocol 

Two  types  of  data  transfer  are  recognized  in  this 
protocol:  'data  blocks'  and  'service  requests.'  Data 
blocks  (or  type  'D')  are  fixed  sized,  while  service  re¬ 
quests  (or  type  'S')  are  variable  length  data  streams. 

The  local  operating  system  maintains  the  following: 
a  Data  Request  Queue  (DRQ) ,  a  Service  Request  Queue 
(SRQ) ,  and  a  Data  Block  Buffer  (DBB) . 

The  SRQ  is  a  software  FIFO  buffer  (ring  buffer) 
residing  in  the  shared  memory,  with  the  port  pointers 
SRQ_IN  and  SRQ_OUT  residing  in  the  gateway  controller 
(as  special  registers,  for  example) .  The  processors  of 
the  local  operating  system  can  access  the  pointers 
directly.  SRQ_IN  points  to  the  next  available  location 
in  the  SRQ  for  storing  incoming  S-type  data,  and  SRQ_OUT 
points  to  the  first  location  of  the  next  type  S-type 
data  stream  for  the  operating  system  to  process. 

SRQ_OUT  chases  SRQ_IN  as  S-type  data  are  put  in  and 
processed.  The  local  operating  system  is  responsible 
for  processing  the  data  (or  at  least  removing  it  from 
the  SRQ)  fast  enough,  and  for  maintaining  a  reasonable 
size  of  empty  space  in  the  SRQ. 


The  DRQ  is  a  FIFO  buffer  (either  software  or  hard¬ 
ware)  residing  in  the  gateway  controller.  The  DRQ  con¬ 
tains  pointers  to  the  free  blocks  in  the  D6B  into  where 
the  gateway  controller  can  put  incoming  data  blocks 
(type  ' D ' ) •  When  a  D-type  data  block  arrives,  the 
gateway  controller  obtains  a  pointer  from  the  DRQ  and 
put  the  data  block  into  the  free  block  in  DBB  pointed  to 
by  the  pointer.  The  local  operating  system  is  respon¬ 
sible  for  maintaining  a  reasonable  number  of  free  blocks 
in  the  DBB  and  also  for  putting  the  pointers  into  the 
DRQ. 

The  DBB  need  not  be  contiguous.  In  fact,  the  DBB 
need  not  be  in  a  fixed  location.  The  local  operating 
system  does  not  have  to  process  the  incoming  blocks  as 
long  as  it  can  allocate  enough  free  block  and  fill  the 
DRQ  with  enough  pointers. 

The  protocol  is  illustrated  in  Figure  2.2. 


3 . 0  THE  SIMULATOR 


3.1.  The  Structure  of  the  Simulator 

The  simulator  consists  of  an  event  scheduler  and  a 
set  of  simulation  procedures,  each  simulates  the  opera¬ 
tion  of  a  specific  type  of  machine  (processor,  gateway 
controller,  etc). 

In  the  hardware  environment  of  INFOPLEX,  more  than 
one  machine  (processor  or  gateway  controller)  can  be 
active  at  the  same  time.  This  concurrency  is  simulated 
by  dividing  the  operation  of  each  machine  into  time 
slices,  and  by  having  the  simulator  executing  the  time 
slices  of  each  machine  in  an  interleaving  manner. 

3.1.1.  Synchronous  and  Asynchronous  Activity 
Handlers 

Because  in  reality,  a  processor  running  a  user 
program  can  be  interrupted  to  handle  an  incoming  message 
or  serve  other  operating  system  functions,  user  programs 
and  operating  system  functions  can  run  ’simultaneously' 
within  the  same  processor.  Thus,  for  convenience  and 
clarity,  each  processor  is  divided  logically  into  two 
parts:  an  Asynchronous  Activity  Handler  (AAH)  and  a 
Synchronous  Activity  Handler  (SAH) .  Events  which  can 
happen  and  must  be  handled  asynchronously  with  the 
scheduling  cycle  (of  the  operating  system) ,  such  as  the 
arrival  of  a  message  from  another  level,  are  handled  by 
the  AAH.  (In  essence,  the  AAH  is  like  an  interrupt 


-10- 


handler.)  Scheduling  and  running  user  programs,  and 
other  events  which  could  be  conveniently  processed  at 
scheduling  cycle  breaks,  are  handled  by  the  SAH.  These 
two  parts  are  treated  by  the  simulator  as  if  they  were 
two  separate  and  independent  machines. 

This  separation  bases  on  the  assumption  that  the 
time  consumed  by  handling  asynchronous  events  is  much 
smaller  than  that  consumed  by  synchronous  events,  so 
that  the  work  of  the  AAH  would  not  slow  down  the  SAH. 

The  performance  data  gathered  during  simulation  (see 
Chapter  7)  will  be  used  to  verify  this  assumption. 

3.1.2.  Events 

In  many  cases,  during  a  time  slice,  a  machine  may 
stay  idle  indefinitely  waiting  for  some  events  to  hap¬ 
pen.  For  example,  a  gateway  controller  idles  until 
either  an  incoming  or  outgoing  message  arrives.  It 
would  be  wasteful  to  simulate  this  kind  of  indefinite 
loop.  Moreover,  the  simulator  has  to  stop  the  simula¬ 
tion  of  the  waiting  machine  at  some  point  so  that  it  can 
run  the  time  slice  of  another  machine  to  materialize  the 
expected  event.  Therefore,  time  slices  are  scheduled 
only  when  a  machine  has  something  meaningful  to  do. 

To  formalize  this  concept,  we  say  that  time  slices 
are  triggered  by  events.  An  event  is  a  condition  which 
causes  a  machine  to  do  something,  and  will  usually  cause 
other  events  to  occur.  The  machine  is  known  as  the  ser- 
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ver  or  the  handler  of  the  event. 

3.1.3.  Event  and  Server  Queues 

To  keep  track  of  all  the  events  in  a  system,  the 
simulator  maintains  a  set  of  event  queues.  Events  in  a 
queue  are  ordered  by  the  time  they  occured.  An  event 
can  appear  in  only  one  queue  and  the  grouping  of  events 
into  queues  is  such  that  two  events  are  put  in  the  same 
queue  if  and  only  if  they  can  be  handled  by  the  same  set 
of  machines  (servers) . 

The  simulator  also  maintains  a  set  of  server 
queues,  which  keep  track  of  when  each  machine  will  be 
available  to  handle  an  event.  (it  is  assumed  that  a 
machine  can  handle  only  one  event  at  a  time.)  A  machine 
can  appear  in  only  one  server  queue  and  the  grouping  of 
machines  into  queues  is  such  that  two  machines  are  in 
the  same  queue  if  and  only  if  they  handle  the  same  set 
(i.e.,  type)  of  events. 

In  the  current  configuration  of  the  simulator, 
there  are  three  event  queue  -  server  queue  pairs  for 
each  level. 

In  the  first  server  queue,  the  gateway  controller 
is  the  sole  server.  The  corresponding  event  queue  con¬ 
tains  the  events  which  are  the  arrivals  of  messages  to 
the  gateway  controller,  from  either  the  global  bus  or 
the  processors  of  the  local  operating  system  at  that 
level. 
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In  the  second  queue  pair,  the  server  queue  contains 
the  AAH's  of  the  level.  The  event  queue  contains  the 
events  which  are  the  arrival  of  messages  at  the  local 
operating  system.  (The  messages  are  already  in  the  DBB 
or  the  SRQ,  being  put  there  by  the  gateway  controller.) 

In  the  third  queue  pair,  the  server  queue  contains 
the  SAH's  of  the  level.  The  event  queue  contains 
several  types  of  events:  LOGMSG,  SYNC,  WAIT,  FINISH  and 
I NIT.  An  event  of  type  LOGMSG  is  the  arrival  of  a 
logical  message  at  the  mail  box  of  one  of  the  virtual 
processes.  A  logical  message  is  a  logical  unit  of  data 
transfer  between  two  virtual  processes,  and  can  be 
queued  by  either  the  SAH  or  the  AAH.  Events  of  type 
SYNC,  WAIT  and  FINISH  are  issued  by  virtual  processes  to 
control  the  scheduling  process.  Events  of  type  INIT  are 
queued  by  the  simulator  at  the  beginning  of  simulation 
for  initializing  the  local  operating  system.  (Chapter  5 
will  deal  with  the  operation  of  a  local  operating  system 
in  detail.) 

In  addition  to  the  queues  mentioned  above,  the 
simulator  also  maintains  an  event  queue  for  the  arrival 
of  messages  at  the  global  bus.  The  global  bus  simulator 
is  the  sole  server  in  the  corresponding  server  queue. 
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3.2.  Operation  of  the  Simulator 

The  simulator  runs  by  simulation  cycles.  At  the 
beginning  of  each  cycle,  the  start  time  of  the  event  at 
the  head  of  each  event  queue  is  calculated. 

The  start  time  of  an  event  is  the  earliest  time  at 
which  a  machine  is  available  to  handle  the  event.  This 
may  be  later  than  when  the  event  occurs  because  there 
may  not  be  any  free  machines  then.  The  simulator 
selects  the  earliest  serviceable  event  and  'dispatches' 
the  server  machine  by  executing  the  procedure  which 
simulates  the  machine.  The  event  is  removed  from  the 
queue  and  is  passed  to  the  simulation  procedure  as  an 
argument. 

The  simulation  procedure  will  most  probably  cause 
more  events  to  occur.  Simulation  will  stop  when  there 
are  no  events  in  all  the  queues. 

For  each  machine,  the  simulator  keeps  track  of  how 
far  into  simulation  time  (STIME)  scale  the  machine  has 
run  in  an  STIME  clock.  The  simulation  procedure  for  the 
machine  is  responsible  for  updating  the  STIME  clock  to 
reflect  the  operating  speed  of  that  machine. 

When  the  simulation  procedure  returns,  it  will  be 
requeued  into  the  server  queue  with  its  updated  STIME 
clock.  The  simulator  will  then  goes  into  another  cycle. 
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3.3.  SEND 


SEND  is  the  procdure  which  simulates  the  action  of 
a  processor  in  transfering  data  to  the  gateway  control¬ 
ler.  Further  description  of  SEND  is  found  in  Chapter  5. 

When  a  virtual  process  wants  to  send  a  message  to 
another  level,  it  calls  the  procedure  SEND.  SEND  queues 
the  message  as  an  event  of  type  MSGOUT  in  the  event  - 
queue  of  the  local  gateway  controller  and  stamps  it  with 
the  current  STIME  clock  of  the  processor  plus  a  delay 
parameter.  The  STIME  clock  of  the  processor  is  then 
incremented  by  an  amount  which  is  a  function  of  the 
length  of  the  message  and  an  overall  throughput 
parameter. 

Note  that  this  simulation  algorithm  corresponds  to 
three  different  scenarios  of  how  the  message  is  sent  in 
reality.  In  the  first  one,  when  the  user  program  wants 
to  send  a  message,  the  processor  immediately  gains  ac¬ 
cess  to  the  local  gateway  controller  and  performs  the 
data  transfer.  In  the  second  one,  the  message  from  the 
virtual  process  is  queued  by  the  operating  system  in  the 
memory  while  it  keeps  trying  to  get  access  to  the 
gateway  controller.  Within  a  reasonable  delay,  the 
operating  system  gains  control  of  the  gateway  controller 
and  transfer  the  message,  in  the  third  scenario,  the 
message  is  queued  in  a  specific  place  in  the  memory  from 
where  it  will  be  picked  up  by  the  gateway  controller  at 
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a  later  time  without  the  intervention  of  a  processor. 

By  varying  the  delay  parameter,  the  effect  of  all  of  the 
three  alternative  conf iguartions  can  be  satisfactorily 
simulated. 

3.4.  GCER:  Outgoing  Messages 

GCER  is  the  procedure  which  simulates  the  action  of 
a  gateway  controller.  For  an  outgoing  message,  GCER 
queues  it  in  the  event  queue  of  the  global  bus  and 
stamps  it  with  its  current  STIME  clock  of  the  gateway 
controller  plus  a  delay  parameter.  The  STIME  clock  of 
the  gateway  controller  is  then  incremented  by  an  amount 
which  is  a  function  of  the  length  of  the  message  and  an 
overall  through  put  rate  parameter. 

Note  that  since  GCER  handles  only  one  message 
(either  outgoing  or  incoming)  at  a  time,  the  start  time 
of  an  event  handled  by  GCER  can  be  considerably  later 
than  the  sending  time  of  the  message.  It  is  assumed 
that  this  delay  in  the  start  time  is  small  enough  so 
that  it  would  not  affect  the  sending  machine.  To  verify 
this  assumption,  GCER  keeps  track  of  the  average  delay 
in  start  time  for  both  incoming  and  outgoing  messages. 

3.5.  GBER 

GBER  is  the  simulation  procedure  for  the  global 
bus.  GBER  queues  incoming  messages  to  the  event  queues 
of  their  respective  destination  gateway  controllers  and 
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stamps  them  with  their  arrival  time  plus  a  delay 
parameter.  Since  the  global  bus  can  handle  interleaved 
messages,  the  service  delay  is  assumed  to  be  always  zero 
and  the  STIME  clock  of  the  global  bus  is  set  to  the  ar¬ 
rival  time  of  each  message. 

It  is  assumed  that  the  overall  effect  of  the  global 
bus  between  the  sending  and  receving  gateway  controllers 
is  a  simple  delay  with  a  reasonable  standard  deviation. 
This  assumption  is  valid  if  the  time  distribution  of  the 
messages  is  sparse  enough  and  that  the  nature  of  the 
pended  bus  will  even  out  the  through  put  rate  of  mes¬ 
sages  at  different  load  conditions  of  the  global  bus. 

To  verify  this  assumption,  GBER  keeps  track  of  the  ar¬ 
rival  time  and  duration  of  each  message. 

3.6.  GCER;  Incoming  Messages 

GCER  handles  an  incoming  message  in  a  way  similar 
to  that  of  handling  an  outgoing  one.  It  queues  the 
message  in  the  event  queue  of  the  local  AAH's,  and  time 
stamps  it  with  the  current  STIME  clock  plus  an  amount 
which  is  a  function  of  the  length  of  the  message  and  an 
overall  through  put  rate  parameter.  The  STIME  clock  is 
incremented  by  the  same  amount. 

Note  that  it  is  assumed  that  the  gateway  controller 
can  handle  interleaved  incoming  messages. 


3.7.  AAHER 


AAHER  is  the  procedure  which  simulates  the  action 
of  an  AAH.  AAHER  removes  messages  from  the  SRQ  or  the 
DBB  and  reassembles  them  if  necessary  to  form  logical 
messages.  It  checks  to  see  if  the  logical  message  is 
addressed  to  the  operating  system  itself:  if  it  is, 

AAHER  will  process  it  immediately.  Otherwise  it  will  be 
queued  in  the  event  queue  of  the  local  SAH's  with  type 
equal  to  LOGMSG  and  STIME  equal  to  the  STIME  clock  of 
the  AAH.  The  LOGMSG  event  will  be  handled  by  the  SAHER. 

3.8.  SAHER 

SAHER  is  the  procedure  which  simulates  the  action 
of  a  SAH.  A  full  description  of  its  operation  is  given 
in  Chapter  5. 

In  short,  each  activation  of  SAHER  resembles  a 
scheduling  cycle  (of  the  operating  system) :  logical  mes¬ 
sages  are  distributed  to  their  respective  mailboxes,  the 
waiting  condition  of  each  process  is  then  evaluated,  and 
if  there  is  any  runnable  process,  one  is  selected  and 
executed. 

3.9.  Data  Transfer 

In  the  simulator,  a  message  is  represented  by  a 
POINTER  to  a  data  structure  containing  the  content  of 
the  message.  The  simulator  does  not  access  the  data 
structure  directly,  and  a  message  transmission  is 
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simulated  by  passing  the  pointer  from  one  place  to 
another. 

Also,  the  simulator  does  not  maintain  the  SRQ's, 
the  DRQ's  or  the  DBB's.  Instead,  for  each  level,  the 
simulator  keeps  track  of  the  size  of  a  virtual  SRQ  and 
that  of  avirtual  DBB.  When  a  S-type  message  arrives  to 
a  local  operating  system,  the  size  of  the  virtual  SRQ 
will  be  incremented  (by  the  length  of  the  S-type 
message);  and  when  a  message  is  processed,  the  size  will 
be  decremented.  Thus,  the  simulator  knows  how  much  data 
is  supposed  in  the  SRQ  even  though  there  is  no  copying 
of  data  involved.  D-type  messages  are  treated  similar¬ 
ly,  except  that  the  size  of  a  DBB  is  kept  in  terms  of 
blocks  (not  bytes) . 
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4 . 0  THE  LOCAL  OPERATING  SYSTEM 


4.1.  Overview 

The  local  operating  system  at  each  level  is  a 
multi-processor,  multiprocess  operating  system.  Each 
processor  shares  the  duty  of  scheduling  and  handling 
inter-process  communication.  There  is  no  one  processor 
which  is  dedicated  to  running  system  programs. 

Operating  system  data  such  as  the  status  of  each  virtual 
process  reside  in  the  shared  memory  and  can  be  accessed 
by  all  the  processors.  Each  processor  schedules  its  own 
activities  and  updates  the  shared  data. 

Each  virtual  process  in  the  local  operating  system 
has  its  own  virtual  addressing  space  and  is  identified 
by  a  unique  ID  number  (VPID) .  A  process  communicates 
with  another  by  sending  and  receiving  logical  messages. 
The  receiving  process  can  be  in  the  same  level  (intra¬ 
level  mail)  or  at  another  level  (inter-level  mail) . 

A  logical  message  can  be  broken  up  into  several 
smaller  physical  messages  to  be  transmitted  in  intervals 
to  lighten  the  load  on  the  global  bus  or  the  gateway 
controller.  In  this  case,  the  receiving  operating 
system  is  responsible  for  reassembling  the  incoming  mes¬ 
sages  to  recover  the  original  logical  message) . 

At  present,  SHELL  does  not  break  up  logical  mes¬ 
sages  for  transmission. 
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A  process  has  an  array  of  virtual  mail  boxes.  Each 
mail  box  is  identified  by  a  mail  box  number  and  can  hold 
more  than  one  logical  message.  The  address  of  a  logical 
message  identifies  the  level,  the  VPID  and  a  mail  box 
number  of  the  destination  process.  When  a  process  is 
expecting  a  message,  it  specifies  to  the  operating 
system  to  which  mail  box  is  the  expected  message  addres¬ 
sed.  It  is  then  put  into  a  suspended  state  until  a 
message  arrives  at  that  mail  box.  It  will  then  be  waken 
up  by  the  operating  system. 

The  format  of  a  message  and  to  which  mail  box  it 
should  be  sent  is  settled  entirely  between  the  sender 
and  receiver  process.  Usually,  when  a  process  expects  a 
reply,  it  will  send  a  mail  box  number  as  part  of  the 
message,  indicating  to  which  mail  box  the  reply  should 
be  sent.  By  convention,  box  No.  1  is  used  by  the 
operating  system  to  pass  data  to  a  process  when  it  is 
initially  created. 

4.2.  System  Service  Requests 

Virtual  process  0  (zero)  is  recognized  as  the 
operating  system  itself.  A  process  can  request  a 
service  from  an  operating  system  by  sending  a  message  to 

virtual  process  0.  The  request  can  be  made  to  the 

operating  system  at  the  local  level  or  that  at  a  foreign 

level.  In  either  case,  the  box  number  will  be  decoded 

as  the  type  of  service  requested.  Currently,  only  one 
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type  of  system  service  is  recognized:  creating  a  new 
process  with  a  user  specified  top  level  procedure. 

4.3.  The  Local  Operation  System  as  a  Network  of  Co- 

Routines 

The  set  of  virtual  processes  in  essence  forms  a 
network  of  concurrent  coroutines  (or  modules,  as  in 
MODULA  twirth]).  There  are  two  general  approaches  of 
allocating  co-routines  to  perform  the  different  func¬ 
tions  required  by  INFOPLEX.  One  is  to  allow  each  tran¬ 
saction  to  have  separate  co-routine  instances,  thus  for¬ 
ming  a  set  of  parallel,  non-intervening  chains  of  ac¬ 
tivations.  The  advantage  of  this  arrangement  is  that 
the  co-routines  can  be  made  to  fit  the  characteristic  of 
each  individual  transaction,  and  pipeling  can  be  more 
readily  realized. 

The  other  approach  is  to  arrange  a  co-routine 
instance  to  handle  a  data  structure,  possibly  being 
shared  by  several  transactions.  The  co-routine  in  this 
case  will  act  as  the  data  handler  and  the  arbiter  (as  in 
the  MONITORS  of  Hoare  [Hoare] )  .  The  advantage  of  this 
arrangement  is  that  the  co-routines  can  be  made  to  fit 
the  characteristics  of  each  data  structure.  In  this 
case,  starting  a  new  process  is  analogous  to  opening  a 
file,  and  subsequent  requests  to  the  co-routine  is  like 
accessing  a  file  which  is  already  opened.  After  the 
initial  set  up,  records  are  retained  by  the  co-routine 


so  that  subsequent  processing  can  be  more  efficient. 

The  structure  of  the  operating  system  allows  the 
writer  of  application  programs  to  experiment  with  both 
approaches . 


5 . 0  THE  LOCAL  OPERATING  SYSTEM  EMULATOR 


5.1.  Overview 

The  local  operating  system  emulator  performs  the 
following  functions:  1)  scheduling  and  executing  proces¬ 
ses,  and  providing  the  basic  context  switching 
mechanism;  2)  inter-process  communication;  3)  inter¬ 
process  synchronization;  and  4)  handling  system  service 
requests. 

5.2.  process  Control 

5.2.1.  Context  Switching 

In  the  current  implementation,  a  process  is  the 
execution  of  a  PL/1  procedure.  Different  processes  run¬ 
ning  the  same  code  corresponds  to  different  instances  of 
the  same  PL/1  procedure  with  different  arguments.  When 
a  process  is  suspended,  everything  on  the  stack  —  the 
AUTOMATIC  variables,  subroutine  call  records,  the  excep¬ 
tion  handling  blocks  —  are  copied  by  the  local 
operating  system  emulator  to  a  storage  area,  and  the 
stack  space  is  cleared  for  the  activation  of  the  next 
process.  When  the  process  is  resumed,  the  content  of 
the  stack  at  the  time  of  its  suspension  are  restored. 

The  saving  and  restoring  of  the  stack  is  completely 
transparent  to  the  process.  (The  context  switching 
mechanism  will  be  described  in  detail  in  Chapter  6.) 
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Because  STATIC  and  CONTROLLED  variables  are  not 
preserved  between  context  switching,  the  use  of  these 
types  should  be  exercised  with  great  caution. 

5.2.2.  The  Virtual  Process  Status  Table 

The  operating  system  maintains  a  Virtual  process 
Status  Table  (VPST)  to  keep  track  of  the  execution  of 
each  process.  Each  process  is  given  a  status  variable, 
which  can  take  the  following  values:  RUNNING,  BLOCKED , 
RUNNABLE,  NASCENT  or  VOID.  RUNNING  indicates  that  a 
process  is  currently  executing  under  one  of  the  proces¬ 
sors  at  that  level.  BLOCKED  indicates  that  the  process 
is  suspended  and  cannot  be  scheduled  because  it  is  still 
waiting  for  a  message.  RUNNABLE  indicates  that  a 
process  is  not  currently  running  but  can  be  scheduled  in 
the  next  cycle.  NASCENT  is  a  special  form  of  RUNNABLE 
and  is  used  when  the  process  has  never  been  run  before. 
(The  distinction  between  NASCENT  and  RUNNABLE  is  neces¬ 
sary  because  starting  a  new  process  is  handled  quite 
differently  from  resuming  an  existing  process.  See 
Chapter  6  for  details.)  VOID  indicates  that  the  process 
has  finished  and  that  its  slot  in  the  VPST  can  be  re¬ 
cycled. 

In  addition  to  the  status,  the  VPST  also  keeps 
track  for  each  virtual  process:  1)  the  saved  content  of 
the  stack;  2)  how  much  time  each  process  has  run 
(VTIME) ;  3)  the  waiting  box  number;  and  4)  the  list  of 
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arrived  mail 


5.2.3.  Scheduling 

SABER  is  the  procedure  which  schedules  and  executes 
the  virtual  processes.  A  scheduling  cycle  is  initiated 
whenever  SAHER  is  dispatched  to  handle  an  event.  When 
SAHER  finished  handling  that  event,  it  checks  the  list 
of  incoming  mail  for  each  process  to  see  if  there  is  any 
mail  going  to  the  waiting  box.  If  the  waiting  box  has 
mail,  the  status  of  the  process  will  be  reset  to  RUN¬ 
NABLE. 

After  checking  the  mail,  SAHER  will  select  from  the 
set  of  RUNNABLE  or  NASCENT  processes  one  process  to  run. 
In  the  current  implementation,  the  scheduling  algorithm 
is  to  choose  the  one  with  the  least  VTIME. 

5.2.4.  Process  Termination 

When  a  process  has  finished  its  task  and  wants  to 
terminate,  it  calls  the  procedure  FINISH  and  then  does  a 
RETURN  to  the  calling  procedure.  FINISH  queues  an  event 
which  is  of  type  FINISH  and  has  the  current  STIME.  The 
purpose  of  this  event  is  to  synchronize  modification  to 
the  VPST  (see  below  for  details) .  The  status  of  the 
process  will  be  reset  to  VOID  and  its  slot  will  be 
recyled. 
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5.3.  Inter-Process  Communication 


5.3.1.  Outgoing  Mail:  SEND 

A  process  sends  a  message  by  calling  the  procedure 
SEND.  It  should  specify  as  arguments  to  SEND:  the 
level,  VPID  and  mail  box  number  of  the  destination 
process.  The  message  is  passed  as  a  pointer  to  a  data 
structure  (whose  format  is  of  concern  only  to  receving 
process) .  SEND  checks  to  see  if  the  message  is  addres¬ 
sed  to  a  foreign  level.  If  it  is,  SEND  will  queue  it  as 
a  MSGOUT  event  to  the  event  queue  of  the  gateway  con¬ 
troller  of  the  level.  If  the  message  is  addressed  to 
the  local  level,  SEND  further  checks  to  see  if  it  is  a 
system  service  request.  If  it  is,  the  process  is  first 
synchronized  (see  below  for  detailed  explaination) , 
after  which  the  service  request  will  be  processed  im¬ 
mediately.  If  the  message  is  a  local  mail  to  another 
process,  it  will  be  queued  as  an  LOGMSG  event  to  the 
local  SAH's. 

5.3.2.  Incoming  Mail 

An  incoming  message  to  a  level  is  first  handled  by 
an  AAH,  which  queues  it  as  LOGMSGs  to  the  event  queue  of 
the  SAH's.  If  the  message  is  an  operating  system  re¬ 
quest,  it  is  handled  immediately  by  the  AAH. 

SABER  receives  the  LOGMSG' s  and  puts  them  in  the 
respective  mail  boxes.  An  error  is  flagged  when  a 
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message  is  sent  to  non-existing  virtual  process. 

5.3.3.  Indefinite  Wait 

When  a  process  is  expecting  a  message,  it  calls  the 
procedure  WAIT  and  passes  to  it  as  argument  the  waiting 
box  number.  WAIT  will  queue  a  WAIT  event  with  the  cur¬ 
rent  STIME.  (The  purpose  of  the  WAIT  event  is  to  syn¬ 
chronize  the  modification  to  the  VPST  —  see  below  for 
details.)  The  process  is  then  suspended  within  the  call 
to  WAIT.  When  the  waiting  box  has  mail,  WAIT  will 
return. 

5.4.  Inter-Process  Synchronization 

Because  the  local  operating  system  emulator  ex¬ 
ecutes  in  only  a  simulated  multi-processor  environment, 
the  actual  execution  order  of  a  series  of  operations  by 
different  processes  may  differ  from  the  order  which 
would  be  carried  out  if  the  operating  system  were  in  the 
real  world.  This  can  produce  results  that  are  inconsis¬ 
tent  with  the  real  environment. 

To  avoid  this  problem,  one  must  make  sure  that  an 
operation  which  is  to  be  executed  at  STIME  =  T  will  be 
carried  out  only  after  all  other  operations  which  are  to 
be  excuted  before  T  have  been  executed.  The  operation 
is  then  termed  synchronized. 

Not  all  operations  need  synchronization,  but  any 
access  to  data  structures  shared  among  processes  should 


be  synchronized.  Note  that  inter-level  communication  is 
implicitly  synchronized. 

5.4.1.  SYNC 

When  a  process  wants  to  synchronize  an  operation, 
it  precedes  the  operation  with  a  call  to  the  procedure 
SYNC.  SYNC  queues  an  event  which  is  of  type  SYNC  and 
has  the  current  STIME  of  the  SAH.  The  SYNC  event  will 
be  handled  after  all  other  events  with  earlier  STiMEs 
have  been  handled,  thus  ensuring  a  strict  STIME 
chronological  order.  In  the  mean  time,  the  process  is 
suspended  but  its  status  is  still  RUNNING.  When  the 
SYNC  event  arrives,  SAHER  changes  the  status  to  RUNNABLE 
and  the  process  is  eventually  rescheduled,  at  which 
point  SYNC  will  return  to  its  caller. 

It  is  important  that  any  access  to  a  data  structure 
shared  among  processes  (e.g.  a  lock  or  a  semaphore)  be 
synchronized.  In  the  operating  system  emulator,  all  the 
modification  to  the  VPST  are  synchronised.  WAIT  and 
FINISH  are  special  cases  of  SYNC  which  change  the  status 
of  the  issuing  process  to  BLOCKED  and  VOID,  respec¬ 
tively. 

5.5.  System  Initialization 

At  the  beginning  of  simulation,  an  event  type  of 
I NIT  is  placed  by  the  simulator  in  the  event  queue  to 
the  SAH's  of  the  lowest  level.  This  is  analogous  to  a 
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•power-on'  interrupt  to  the  processors.  Its  purpose  is 
to  trigger  the  procedure  which  is  responsible  for 
initializing  the  local  operating  system. 
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6.0  PROGRAM  STRUCTURE  AND  EXECUTION  LOGIC  OF  SHELL 


6.1.  Program  Structure  of  SHELL 

The  functional  relationship  among  the  major  modules 
of  SHELL  is  depicted  in  Figure  6.1.  SHELL,  the  event 
scheduler,  dispatches  events  to  one  of  the  four  simula¬ 
tion  procedures  GBER,  GCER,  AAHER  and  SAHER.  Their 
functions  are  described  in  Chapter  3. 

SAHER  carries  out  the  majority  of  the  tasks  of  an 
operating  system.  (The  other  tasks  are  carried  out  by 
AAHER.)  It  in  turn  may  call  its  own  subroutines.  Events 
of  type  SYNC,  WAIT,  and  FINISH  are  handled  by  SAHER. 

For  events  of  type  LOGMSG,  MAILMAN  is  called  to 
distribute  the  mail.  I NITER  is  called  to  handle  the 
event  type  INIT. 

After  incoming  events  are  handled,  SAHER  calls 
CHECK_MAIL  to  check  if  any  waiting  virtual  process  has 
received  its  expected  message.  It  then  calls  SCHEDULER 
to  select  a  virtual  process  to  run. 

SCHEDULER  in  turn  calls  VPER  to  handle  the  virtual 
process.  For  a  NASCENT  process,  VPER  calls  EXECUTE 
which  calls  the  top  level  procedure  of  the  process.  For 
an  old  process,  VPER  calls  RTSTK  to  restore  the  stack. 
RTSTK  returns  directly  into  the  middle  of  the  invocation 
of  the  newly  restored  process. 
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The  user  program  may  call  any  of  the  utility 
procedures  STIMER,  SEND,  WAIT,  SYNC  and  FINISH.  STIMER 
and  FINISH  both  execute  and  return  immediately.  SEND 
may  call  SYNC  if  a  system  service  request  is  involved, 
otherwise  it  should  return  immediately.  SYNC  and  WAIT 
both  call  SLEEP,  which  in  turn  calls  SVSTK  to  save  the 
stack.  SVSTK  returns  directly  to  VPER. 

6.2.  Format  of  Major  Data  Structures 

6.2.1.  LOS 

SHELL  maintains  a  giant  table  which  contains  the 
status  of  all  the  local  operating  systems.  The  format 
of  an  entry  in  the  table  (a  LOS)  is  shown  in  Figure  6.2. 

LOS. LEVEL  is  the  level  of  the  local  operating 
system.  LOS. SRQ. SIZE  keeps  the  current  amount  of  data 
(in  bytes)  in  the  SRQ.  LOS. SRQ. MAX  keeps  the  record  of 
the  maximum  size  the  SRQ  has  reached,  and  is  a  good 
reference  for  finding  the  optimal  size  of  the  SRQ. 
Similarly,  LOS. DBB. SIZE  and  LOS . DBB . MAX  keep  track  of 
the  current  size  and  maximum  size  (in  number  of  blocks) 
of  the  DBB. 

LOS. VPS. TABLE  is  the  virtual  process  status  table 
of  the  local  operating  system.  The  number  of  slots  in 
it,  MAXVP,  is  a  compile  time  parameter  defined  in  the 
macro  file  CONFIG. 
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THISLOS-s  (set  by  AAHER,  SAHER) 
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FIXED  BIN 
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SIZE  FIXED  BIN 
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BDSA 

FIXED  BIN  (31) 
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FIXED  BIN  (31) 

SAVES IZE 
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SAFE 

PTR 

PROCNAME 

CHAR (7)  VAR 

VPS. TABLE  « 

(MAXVP*)  £ 

X 

< 

STATUS 

CHAR (12)  VAR 

MAIL 

PTR 

X 

WAIT 

BOX 

FIXED  BIN 

MSG 

PTR  ""T 

VP  ID 

FIXED  BIN 

LEVEL 

FIXED  BIN 

' 

VTIME 

FIXED  BIN  (31) 

*  a  compile  time  parameter 

. — - r 

defined  in  CONFIG 

FIG  6.2  FORMAT  OF  LOS  (Local  Operating  System) 


The  external  POINTER  variable  THISLOS  points  to  the 
current  LOS.  A  user  program  can  access  the  data  of  the 
current  LOS  via  THISLOS. 

6.2.2.  VP 

Each  entry  in  the  LOS .VPS. TABLE  represents  a  vir¬ 
tual  process,  and  its  format  is  shown  in  Figure  6.3. 

The  fields  VP.BDSA,  VP.TDSA,  VP.SAVESIZE  and 
VP. SAFE  are  used  by  the  context  switching  mechanism,  and 
their  used  will  be  discussed  in  Section  6.4. 

VP . PROCNAME  holds  the  name  of  the  top  level  procedure. 
VP. STATUS  holds  the  status  of  the  virtual  process,  which 
must  be  one  of  the  following:  VOID,  NASCENT,  RUNNABLE, 
RUNNING,  and  BLOCKED.  (See  Chapter  5  for  details.) 

VP. MAIL  points  to  a  chain  of  mail  boxes,  each  containing 
a  chain  of  messages  (Figure  6.5.2). 

VP. WAIT. BOX  holds  the  number  of  the  waiting  box. 

VP. wait. MSG  points  to  the  expected  message  when  it  ar¬ 
rives.  It  also  holds  the  initial  message  passed  to  it 
by  the  system  when  the  process  is  newly  created.  (See 
Chapter  7  for  details.) 

VP.VPID  contains  the  ID  of  virtual  process. 

VP. LEVEL  holds  the  level  number.  VP.VTIME  holds  the 
cumulative  CPU  time  of  the  process  (in  micro-seconds) . 

The  external  POINTER  variable  THISVP  points  to  the 
current  VP  entry.  A  user  program  can  access  the  data  of 
current  virtual  process  via  THISVP. 
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THISVP 


(set  by  VPER) 
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BOSA 

FIXED  BIN  (31) 

TDSA 

FIXED  BIN  (31) 

SAVES IZE 

FIXED  BIN  (31) 
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PTR 

PROCNAME 

CHAR (7)  VAR 
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CHAR (12)  VAR 

MAIL 
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WAIT 
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FIXED  BIN 
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VP  ID 

fixed  BIN 

LEVEL 

FIXED  BIN 

VTIME 

FIXED  BIN  (31) 

FIG  6.  3  FORMAT  OF  VP  (Virtual  Process) 
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6.2.3.  SVR 

The  status  of  each  machine  (gateway  controller, 
global  bus,  A AH ,  or  SAH)  in  the  system  is  kept  in  a  SVR 
(Server).  SVR's  are  chained  together  in  the  server 
queues  kept  by  SHELL.  (See  Chapter  3.)  The  format  of  a 
SVR  is  shown  in  Figure  6.4. 

SVR. NEXT  points  to  the  next  server  in  the  same  ser¬ 
ver  queue.  SVR.STIME  holds  the  base  simulation  time 
while  SVR.RTIME  holds  the  base  real  CPU  time  (in  micro¬ 
seconds)  .  SVR.STIMEQ  holds  the  cumulative  simulation 
time  of  the  machine.  SVR.RRATE  is  the  ratio  of  the 
simulation  clock  speed  to  that  of  the  real  CPU  clock 
(Chapter  7) . 

When  a  machine  is  dispatched  to  handle  an  event, 
SVR.STIME  is  set  to  the  start  time  of  the  event,  and 
SVR.RTIME  is  set  to  value  of  the  real  CPU  clock  at  that 
time.  Within  the  same  time  slice,  the  simulation  time 
at  any  time  t  is  given  by: 

(realtime (t)  -  SVR.RTIME)  X  SVR.RRATE  +  SVR.STIME 
At  the  end  of  the  time  slice,  SVR.STIME  is  updated  to 
show  when  the  machine  will  be  available  to  handle  the 
next  event.  Each  type  of  machine  has  a  different  update 
algorithm. 

The  external  POINTER  variable  THISSVR  points  to  the 
current  SVR.  For  a  user  program,  this  will  always 
points  to  the  SVR  of  a  processor  (SAHER) . 


I* 


THISSVR^ 


(set  by  AAHER,  SAHER) 


NEXT 

PTR 

ST  I  ME 

FIXED 

BIN 

(31) 

STIMEQ. 

FIXED 

BIN 

(31) 

RTIME 

FIXED 

BIN 

(31) 

RRATE 

FIXED 

BIN 

(15,7) 

ID 

FIXED 

BIN 

Fit;  6.4  FORMAT  OF  SVR  (Server) 


6.3.  Message  Prefixes 

SHELL  does  not  handle  the  data  structure  of  a 
message,  it  only  handles  the  POINTER  to  that  data  struc¬ 
ture.  At  the  beginning  of  a  message  transmission, 
several  different  types  of  data  structures  (prefixes) 
are  chained  to  the  beginning  of  the  message.  These 
prefixes  are  later  on  inspected  and  stripped  off  by  the 
procedures  in  the  receiving  stages.  Typically,  a 
procedure  looks  only  at  the  foremost  prefix  and  does  not 
care  about  the  format  of  the  data  structures  that  fol¬ 
low. 

The  prefix  convention  reflects  the  nature  of  data 
transmission  in  the  real  world,  where  descriptor  records 
are  usually  added  to  the  beginning  of  a  data  stream  to 
indicate  its  format  or  content. 

Figures  6. 5. 1-2  depicts  a  pictorial  history  of  a 
message  transmission.  The  format  of  the  prefixes  invol¬ 
ved  are  shown. 

6.3.1.  PF_ADDR 

It  contains  the  destination  VPID  and  box  number. 

It  is  added  on  by  SEND  and  stripped  off  by  MAILMAN. 
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SEND  (LOCAL) 


BOX  ID 


6.3.2.  PF_S 

It  contains  the  length  of  the  message  (including 
that  of  PF^ADDR) .  Only  S-type  messages  have  it  since  D- 
type  messages  are  fixed  in  length.  It  is  added  on  by 
SEND.  AAHER  uses  it  to  update  the  size  of  the  SRQ, 
after  which  it  is  stripped  off. 

6.3.3.  PF^ MSG 

It  contains  the  type  (either  ’S'  or  'D')  of  the 
message  as  well  as  its  length  (including  that  of  PF_S 
and  PF_ADDR) .It  is  added  on  by  SEND  and  stripped  of  by 
GCER. 


6.3.4.  PF__LEVEL 

It  contains  the  destination  level  of  the  message. 

It  is  added  on  by  SEND.  It  is  inspected  by  both  GCER 
and  GBER.  It  is  stripped  off  by  GBER. 

6.4.  The  Execution  Logic  of  the  Context  Switching 
riechaniim 

The  context  switching  mechanism  works  only  in  the 
IBM  OS  PL/1  execution  environment.  (For  details  of  the 
environment,  see  [IBM  }.) 

6.4.1.  The  Stack  Space 

Every  time  a  PL/1  procedure  is  invoked,  it  al¬ 
locates  a  temporary  storage  area  on  the  stack.  This 
area  is  headed  by  the  DSA  (Dynamic  Storage  Area)  of  the 
procedure,  followed  by  the  AUTOMATIC  variables  and  other 
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temporary  data.  The  DSA  holds  the  NAB  (Next  Available 
Byte)  ,  a  pointer  to  the  end  of  the  temporary  storage 
area.  If  the  procedure  calls  another  procedure,  the  DSA 
will  also  hold  the  return  address  for  the  called 
procedure. 

The  stack  space  in  the  PL/1  execution  environment 
is  initially  contiguous  but  may  later  become  segmented. 
Each  segment  of  the  stack  space  is  identified  by  a  seg¬ 
ment  number  which  is  also  contained  in  the  DSA.  The 
context  switching  mechanism  requires  a  contiguous  stack 
space.  Hence,  every  time  before  saving  or  restoring  the 
stack,  the  segment  number  is  checked  to  make  sure  that 
the  stack  space  is  still  contiguous. 

The  end  of  the  stack  space  is  marked  by  the  EOS 
(End  of  segment)  slot  in  the  TCA  (Task  Communicaton 
Area)  of  the  PL/1  execution  environment.  EOS  changes  as 
BASED  or  CONTROLLED  storages  are  ALLOCATE' d  and  FREE’d. 

The  format  of  the  DSA  is  shown  in  Figure  6.6,  and 
the  format  of  the  TCA  is  shown  in  Figure  6.7.  For  fur¬ 
ther  information  about  the  internal  data  format  of  the 
PL/1  execution  environment,  see  [IBM] . 

6. 4. 1.1.  GET 4 

GET4  is  an  assembly  language  subroutine.  It  ob¬ 
tains  the  following  information:  the  address  of  the  DSA 
(of  the  calling  PL/1  procedure) ,  the  NAB,  the  segment 
number  and  the  EOS. 
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(Offsets  in  Hexadecimal) 


6.4.2.  Saving  a  Process 

Before  invoking  a  process,  VPER  first  gets  (via 
GET 4)  the  address  of  its  own  DSA  and  puts  it  in  the  BDSA 
(Bottom  DSA)  field  of  the  current  VP.  It  then  calls 
EXECUTE,  which  in  turn  calls  the  user  program. 

Control  eventually  reaches  SLEEP.  SLEEP  gets  (via 
GET4)  the  address  of  its  own  DSA  and  puts  it  in  the  TDSA 
(Top  DSA)  field  of  the  current  VP.  The  amount  of  data 
to  be  saved  (between  the  BDSA  and  the  NAB  of  the  TDSA) 
is  calculated  and  put  in  the  SAVESIZE  field  of  the  VP. 

SLEEP  then  allocates  a  number  of  save  blocks,  which 
are  chunks  of  BASED  storage  chained  together.  VP. SAFE 
points  to  the  first  save  block. 

SLEEP  then  calls  SVSTK.  SVSTK  copies  the  content 
of  the  stack  (from  the  BDSA  to  the  NAB  of  the  TDSA)  to 
the  save  blocks.  SVSTK  returns  directly  the  the  BDSA, 
as  if  EXECUTE  were  returning  to  VPER. 

6.4.3.  Restoring  a  Process 

Before  restoring  a  process,  VPER  checks  (via  GET4) 
to  see  if  there  is  enough  space  left  in  the  stack  space 
for  restoration.  If  not,  an  error  will  be  signaled. 

VPER  then  calls  RTSTK ,  which  copies  the  data  from 
the  save  blocks  to  the  stack  space.  Every  datum  is  put 
back  at  the  exact  same  address.  Note  that  the  DSA  of 
VPER  is  'painted  over'  by  RTSTK,  so  that  the  state  of 


VPER  is  restored  to  the  state  when  it  called  EXECUTE. 
RTSTK  returns  to  the  TDSA,  as  if  SVSTR  were  returning  to 
SLEEP.  Control  will  eventually  return  to  the  user 
program.  The  saving  and  restoring  is  transparent  to  the 
user  program;  and  as  far  as  the  user  program  is  concer¬ 
ned,  it  called  a  utility  procedure  (SYNC  or  WAIT)  and  it 
has  just  returned. 

The  state  of  the  stack  space  at  various  stages  is 
depicted  in  Figures  6. 8. 1-4. 
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FIG.  6.8.3  STATE  OF  THE  STACK  DURING  CONTEXT  SWITCHING  (part  3) 
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tlon.  cut  Ion.  EXECUTE 


FIG.  6.8.1*  STATE  OF  THE  STACK  DURING  CONTEXT  SWITCING  (part  k) 
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7.0  INTERFACE  WITH  APPLICATION  PROGRAMS — A  USER’S  GUIDE 
TO  SHELL 

To  adopt  a  PL/1  program  to  run  under  SHELL,  it  must 
first  be  re-organized  to  fit  the  multi-process  (co¬ 
routine)  execution  environment  of  SHELL.  In  specific, 
it  should  be  functionally  decomposed  into  a  set  of  top 
level  procedures,  each  top  level  procedure  being  an  in¬ 
dependent  unit  performing  a  specific  function.  There 
should  be  no  sharing  of  data  or  subroutines  among  top 
level  procedures,  but  within  each  top  level  procedure, 
there  can  be  internal  subroutines  and  data  can  be  shared 
among  the  internal  subroutines. 

Top  level  procedures  communicate  with  one  another 
only  by  sending  and  receiving  messages,  using  the 
utility  procedures  SEND  and  WAIT.  (Section  7.4) 

A  virtual  process  in  SHELL  is  an  activation  of  a 
top  level  procedure.  Several  processes  may  share  the 
same  top  level  procedure.  A  virtual  process  is  created 
by  SHELL  upon  request  from  other  processes.  A  process 
can  request  a  new  process  to  be  created  at  its  own  level 
or  at  another  level,  it  does  so  by  sending  a  message  to 
the  operation  system  of  the  desired  level  and  specifying 
which  top  level  procedure  is  to  be  used.  (Section  7.5) 
At  the  beginning  of  simulation,  SHELL  creates 
several  processes  with  the  user-supplied  procedure  TERM. 
(Section  7.3)  TERM  should  be  programmed  to  handle  the 
initial  terminal  I/O  and  start  the  action  sequence. 
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One  starts  the  simulation  by  loading  and  running 
SHELL . 

7.1.  To  Register  a  Top  Level  Procedure  with  SHELL 
EXECUTE  is  the  (only)  procedure  in  SHELL  that 

reference  the  user-supplied  top  level  procedures.  It  is 
a  very  simple  program  which  consists  almost  entirely  of 
clauses  of  the  form:  (Figure  7.1) 

IF  (PROCNAM* ' X ' )  THEN  DO?  CALL  X;  RETURN?  END? 

To  add  a  top  level  procedure  to  SHELL,  one  should 
modify  EXECUTE  by  adding  a  clause  of  the  above  form 
(with  the  appropiate  name  substituting  the  'X*)  to  the 
body  of  EXECUTE.  EXECUTE  should  then  be  recompiled. 

Table  7.1  shows  a  list  of  EXTERNAL  variable  and 
entry  names  used  by  SHELL.  A  user-supplied  top  level 
procedure  should  not  have  a  name  identical  to  the  names 
in  the  list. 

7.2.  Parameters 

7.2.1.  Compile  Time  Parameters 

There  are  only  two  compile  time  parameters:  MAX- 
LEVEL  and  MAXQ.  MAXLEVEL  is  the  one  less  the  number  of 
levels  in  the  functional  hierarchy?  and  MAXQ  is  always 
MAXLEVEL  x  3.  They  are  both  defined  in  the  macro  file 
CONFIG.  To  set  these  two  parameters,  modify  the  macro 
file  CONFIG  and  recompile  SHELL. 
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Pl/I  OPTIMIZING  COMPILER  EXECUTEI  PROC  (PROCNAME) I  PAGE 


Table  7.1  LIST  OF  EXTERNAL  IDENTIFIERS 


ENTRIES:  OATA: 


AAHER 

ADDQ 

CONS 

DEBUGR 

EXECUTE 

FINISH 

GBER 

GCER 

GET4 

QEVENT 

RTIMER 

RTSTK 

SAHER 

SEND 

SHELL 

SLEEP 

STIMER 

SVCER 

STSTK 

SYNC 

TERM 

VPER 

VPSTART 

WAIT 


DEBUG 
PARAMS 
THIS LOS 
THISSVR 
THIS VP 

PLIXOPT 


55 


7.2.2.  Run  Time  Parameters 

At  the  beginning  of  each  simulation,  SHELL  asks  for 
the  values  of  a  set  of  run  time  simulation  parameters. 

7. 2. 2.1.  Number  of  Processors 

Each  level  has  a  different  number  of  processors. 

1. 2.2.2.  RRATE 

RRATE  is  the  ratio  between  the  simulation  time 
clock  rate  and  the  real  (CPU)  time  clock  rate.  It  is 
declared  as  a  PIXED  BIN  (15,7)  variable.  A  RRATE 
greater  than  one  means  that  the  simulation  time  clock 
rate  (of  the  processors)  of  that  level  is  faster  than 
the  real  CPU  time  rate  (in  370  VM/CP) ,  which  means  that 
the  processor  at  that  level  are  running  slower  than  the 
real  time  clock.  Each  level  has  a  different  RRATE. 

7. 2.2.3.  THRU_PUT 

THRU_PUT  is  the  overall  average  throughput  rate  at 
the  global  bus.  The  unit  is  in  micro-seconds  per  byte. 
It  is  declared  as  a  PIXED  BIN  (31,7). 

7. 2. 2. 4.  DELAY_GB_GC ,  DELAY_GC_GB 

DELAY_GB_GC  is  the  average  delay  (micro-seconds) 

between  the  arrival  of  the  first  byte  at  the  global  bus 
and  the  arrival  of  the  first  byte  at  the  destination 
gateway  controller.  DELAY_GC_GB  is  the  counter  part  for 
outgoing  messages. 
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7. 2. 2. 5.  TERMINALS 

This  is  the  number  of  'virtual  terminals'  attached 
to  the  system.  During  initialization,  SHELL  starts  that 
many  number  of  virtual  processes  in  the  lowest  level 
operating  system.  (See  7.3  for  details.) 

7.3.  Initialization 

At  the  beginning  of  simulation,  the  simulator  puts 
into  the  lowest  level  operating  system  a  number  (*  TER¬ 
MINALS)  of  virtual  processes  with  TERM  as  the  top  level 
procedures.  TERM  should  be  supplied  by  the  user  and 
should  handle  the  initial  user  I/O  and  initialize  the 
transactions. 

7.4.  Utility  Procedures 

There  are  five  utility  procedures  which  an  applica¬ 
tion  program  can  call  directly:  STIMER,  SEND,  SYNC,  WAIT 
and  FINISH.  The  macro  file  USERS  contains  the  declara¬ 
tions  of  each  of  these  entries  and  can  be  %INCLUDE'd  to 
the  user  program. 

7.4.1.  STIMER 

STIMER  takes  no  argument  and  returns  the  current 
simulation  time  of  current  processor.  It  is  controlled 
by  the  RRATE  of  the  current  level.  The  format  of  retur¬ 
ned  value  is  FIXED  BIN  (31). 
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7.4.2.  SEND 


The  calling  sequence  of  SEND  is: 

CALL  SEND  (level ,vpid , boxid , type ,len,ptr) 
where  level,  vpid  and  boxid  are  those  of  the  destination 
process.  Type  can  be  either  • D'  or  'S',  indicating 
which  type  of  message  should  be  sent.  Len  is  the 
length,  in  bytes,  of  the  message  to  be  sent,  and  ptr  is 
a  POINTER  pointing  to  the  message.  SHELL  itself  does 
not  decode  the  message  (except  in  the  cases  of  system 
service  requests,  see  Section  7.5);  so  the  message  can 
be  of  any  data  type  as  long  as  the  receiving  process 
knows  how  to  decode  it.  Messages  cannot  be  AUTOMATIC  as 
the  stack  is  modified  when  context  switching  occurs. 

(Ref  Section  7.7) 

7.4.3.  SYNC 

SYNC  takes  no  argument.  The  calling  process  is 
suspended  until  it  has  become  the  earliest  event  in  the 
system.  (See  Section  5.4  for  details.)  SYNC  should  be 
used  before  any  access  to  a  common  shared  data  structure 
such  as  a  lock  or  semaphore. 

7.4.4.  WAIT 

WAIT  takes  a  box  number  as  argument.  The  calling 
process  is  suspended  until  a  message  arrives  at  the  in¬ 
dicated  mail  box.  If  there  is  already  a  message  in  the 
mailbox  when  WAIT  is  called,  it  will  have  the  same  ef- 
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feet  as  SYNC 


7.4.5.  FINISH 

FINISH  takes  no  argument  and  signals  the  end  of  the 
calling  process.  Note  that  FINISH  does  not  transfer 
control  out  of  the  calling  procedure,  and  a  RETURN  or  a 
GOTO  to  the  last  END  statement  should  follow  the  call  to 
FINISH. 

7.5.  System  Service  Requests 

Virtual  Process  0  of  each  level  is  recognized  as 
the  operating  system  itself.  A  message  sent  to  virtual 
process  0  will  be  decoded  as  a  system  service  request. 
The  destination  box  number  in  the  case  will  be  decoded 
'  as  the  type  of  system  service  desired. 

Currently  only  one  system  service  (box  number  »  1) 
is  implemented.  It  is  the  starting  of  a  new  virtual 
process. 

7.5.1.  Start  a  New  virtual  Process 

i  The  format  of  the  message  required  by  this  system 

service  is  shown  in  Figure  7.2.  A  prefix  (PF_SVC)  is 
added  to  the  beginning  of  the  message  which  is  going  to 
be  passed  to  the  newly  started  virtual  process.  The 
prefix  should  contain  the  name  of  the  top  level 
procedure.  After  the  operating  system  starts  the 
process,  the  prefix  is  stripped  off  and  the  rest  is  put 
into  the  waiting  box  of  the  new  process. 
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7.6.  External  variables 


The  EXTERNAL  variables  THISVP,  THISLOS  and  THISSVR 
are  POINTER  varibles  pointing  respectively  to  the  cur¬ 
rent  virtual  Process,  Local  Operating  System  and  Server 
(Processor) .  The  format  of  data  structures  VP,  LOS  and 
SVR  are  listed  in  the  Chapter  6.  The  macro  files  VPX, 
LOSX  and  SVRX  contain  all  the  necessary  declarations  and 
can  be  %INCLtJDE’d  by  the  application  programs. 

7.6.1.  VP:  Information  about  the  current  Vir¬ 
tual  Process 

Several  sub-fields  in  VP  are  of  special  interest  to 
an  application  program: 

7. 6. 1.1.  VP .WAIT. MSG 

When  a  process  wakes  up  from  a  WAIT,  this  slot  con¬ 
tains  the  pointer  to  the  message  arrived  at  the  expected 
mail  box.  When  a  process  is  newly  created,  this  slot 
contains  the  argument  passed  to  it  by  the  system  or  the 
parent  process. 

7. 6. 1.2.  VP. LEVEL 

This  is  the  level  number  of  the  embedded  local 
operating  system.  It  is  declared  as  a  FIXED  BIN. 
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7. 6. 1.3.  VP.VPID 

This  is  the  Virtual  process  ID  of  the  current 
process.  It  is  declared  as  a  FIXED  BIN. 

7. 6. 1.4.  VP.VTIME 

This  contains  the  cumulative  simulation  time 
(micro-seconds)  of  each  process,  in  the  format  of  FIXED 
BIN  (31)  . 

7.7.  Caveats  &  Restrictions 

7.7.1.  Local  Variables 

The  AUTOMATIC  variables  in  a  top  level  procedure 
(and  everything  else  that  is  stored  on  the  stack)  are 
associated  with  the  process?  whiie  the  STATIC  and  CON¬ 
TROLLED  variables  are  associated  with  the  procedure. 
Hence,  if  a  top  level  procedure  is  expected  to  be  shared 
by  more  than  one  processes,  it  must  either  use  only 
AUTOMATIC  variables  or  keep  track  of  its  STATIC  and  CON¬ 
TROLLED  variables  very  carefully. 

7.7.2.  Messges 

SHELL  keeps  track  of  messages  as  POINTERS  and  does 
not  care  about  the  actual  data  format  or  the  storage 
class  of  the  messages.  However,  because  the  stack  space 
is  multiplexed  among  processes,  the  AUTOMATC  variables 
of  a  sending  process  will  disappear  from  the  stack  space 
when  the  receiving  process  is  invoked.  Hence,  messages 
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should  not  be  contained  Inside  AUTOMATIC  data  struc¬ 
tures. 

The  prefered  way  is  to  use  BASED  data  structures 
for  messages.  The  sending  process  will  ALLOCATE  them 
and  the  receiving  process  will  FREE  them  after  proces¬ 
sing  them. 

7.7.3.  The  REPORT  option 

Because  the  PL/1  run  time  option  REPORT  interferes 
with  the  operation  of  the  context  switching  mechanism, 
it  should  never  be  used  with  SHELL. 

7.8.  STATS 

STATS  is  a  file  containing  certain  performance 
statistics  of  SHELL.  At  present,  it  contains  the  fol¬ 
lowing:  1)  the  run  time  parameters?  2)  the  average  delay 
time  of  the  gateway  controllers;  3)  the  time  distribu¬ 
tion  and  duration  of  the  messages  arriving  at  the  global 
bus;  and  4)  the  cumulative  active  time  of  each  machine. 

7.9.  A  Sample  program 

A  test  program  is  presented  here  as  an  example.  It 
is  called  TERM  so  that  it  is  activated  by  SHELL  when 
simulation  begins.  A  listing  of  TERM  is  in  Figure  7.3 
as  well  as  in  the  Appendix. 

When  TERM  comes  up,  it  will  identify  itself  by 
printing  the  current  level,  VPID,  waiting  box  number, 
the  ID  of  the  processor  (SVR) ,  and  the  current  STIME. 
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Pl/1  OPTIMIZING  compiler  TERM:  PROC;  page  a 

SOURCE  LISTING 

NUMBER  LEV  NT 


10  0  TERM!  PROC;  TER0001 0 

TER00020 

*  INCLUDE  USERS;**.. ..a.................... ..TER00030 

X  INCLUDE  SUMER;**'  . . . ..uSEOOO  1  0 

200010  I  0  DCL  SUMER  ENTRY  RETURNS  (FIXEO  BIN  <3<));  STI000I0 

. USEQ00I0 

300020  I  0  DCL  SEND  ENTRY  (FIXED  BIN.  FIXEO  BIN,  FIXEO  BIN,  CHAR( * )  VAR.  USE00020 

FIXEO  BIN,  PTR) ;  USE00030 

300040  t  0  DCL  WAIT  ENTRY  (FIXEO  BIN)!  USE00040 

300050  I  0  DCL  SYNC  ENTRY;  USE00050 

300060  I  0  DCL  FINISH  ENTRY:  USE00060 

USE00070 

...............  TER00030 

400040  |  0  DCL  (NULL . LENGTH)  BUILTIN:  TER00040 

TEROOOSO 

X INCLUDE  VPX;  ....... ..•••••.••......TER00060 

500010  1  0  DCL  TH1SVP  PTR  EXTERNAL  STATIC;  /•  ->  CURRENT  VP,  SET  BY  VPER  */VPX000I0 

VPX00020 

I  500030  1  0  OCL  1  VP  BASED  (THISVP),  XINCLUOE  VP; ....... VPX00030 

a\  BO  BDSA  FIXED  BIN  (31).  /«  AOOR  (BOTTOM  OSA)  */VP  00010 

,  BO  TOSA  FIXEO  BIN  (31).  /»  AOOR  (TOP  DSA )  »/VP  00020 

80  SAVESIZE  FIXED  BIN  (31),  /»  SIZE  OF  AREA  TO  BE  SAVED  »/V P  00030 

BO  SAFE  PTR,  /.  ->  1ST  SAVBLK  ./VP  00040 

BO  PROCNAME  CHAR  (7)  VAR,  /.  NAME  OF  TOP  LEVEL  PROC  */VP  00050 

80  STATUS  CHAR  (12)  VAR,  VP  00060 

BO  MAIL  PTR,  /•  CHAIN  OF  INCOMING  MAIL  */VP  00070 

BO  WAIT,  VP  00080 

B1  BOX  FIXED  BIN,  /.  BOX  AWAITING  MAIL  »/VP  00090 

81  MSG  PTR,  /.  MSG  IN  WAIT. BOX  «/VP  00100 

80  VPID  FIXEO  BIN.  /•  INDEX  IN  THE  VPST  »/VP  00110 

80  LEVEL  FIXEO  BIN,  /.  LEVEL  »/VP  00120 

BO  VIIME  FIXED  BIN  (31)  VP  00130 

•  . .  .  VPX00030 

VPX00040 

. TER00060 

XINCLUOE  SVRX ;...*. ...................................... ............ ..t£R00070 

800010  1  0  OCL  THISSVR  PTR  EXTERNAL  STATIC;  /«  ->  CURRENT  SVR,  SET  BY  SAHER  »/  SVR00010 

SVR00020 

800030  I  0  DCL  1  SVR  BASED  (THISSVR).  XINCLUOE  SVR; . . ...SVR00030 

70  NEXT  PTR.  SVROOOIO 

70  STIME  FIXEO  BIN  (31),  SVR00020 

70  SUMEO  FIXEO  BIN  (31),  /«  ACCUMULATED  STIME  ./SVR00030 

70  RUME  FIXED  BIN  (31),  SVR00040 

70  RRATE  FIXED  BIN  (IS, 7),  /*  REAL  CPU  TICK, RATE  ./SVR00050 

70  ID  FIXEO  BIN  SVR00060 

. . . . .  .  SVR00030 


Pl/I  OPTIMIZING  COMPILER 


TERM.'  PRQCt 


NUMBER 

LEV 

NT 

SVR00040 
TER00070 
•  ••• T  ER00080 

1100010 

1 

0 

OCL  PT_SVC  PTR; 

PFS0001 0 
PFS00020 

1100030 

1 

0 

DCL  1  PF_SVC  BASED  ( PT  SVC), 

2  SVC  CHAR  (7)  VAR, 

2  PTR  PTR; 

PFS00030 
PFS00040 
PFS00050 
PFS00060 
TER00080 
•  •••TER00090 

1200010 

1 

0 

DCL  MSGLEN  FIXED  BIN; 

MSG00010 

1200020 

1 

0 

DCL  MSGPT  PTR; 

MSG00020 

1200030 

1 

0 

OCL  1  MSG  BASED  (MSGPT), 

2  LEN  FIXEO  BIN, 

2  STR  CHAR  (MSGLEN  REFER  (LEN)); 

MSG00030 

MSG00040 

MSG00050 

MSG00060 

TER00090 

1200100 

1 

0 

DCL  ( LEVEL, VP  ID, BOX  ID)  FIXED  BIN; 

TER00100 

12001  10 

1 

0 

OCL  MESSAGE  CHAR(80  )  VAR; 

TER00110 

1200120 

1 

0 

DCL  COMMAND  CHAR<12 ); 

TER00120 

1200130 

1 

0 

OCL  TYPE  CHAR (8)  VAR; 

TER00130 

TER00140 

1200150 

1 

0 

loop: 

PUT  SKIP  EDIT  ('  TERM:  LEVEL  •  «,  VP.  LEVEL.'  VP  •  '.VP.VPID, 

•  WAIT.  BOX  -  '.VP. WAIT. BOX,*  SVR  •  '.SVR.IO,'  STIME  • 

SVR. STIME)  (A.F<2),A,F(2).A.F(2).A,F(2),A,F(tl)); 

TER00150 

TER00160 

TER00I70 

TER00180 

1200190 

1 

0 

MSGPT  «  VP. WAIT .MSG; 

TER00190 

1200200 

1 

0 

IF  (MSGPT  -•  NULL)  THEN  00; 

TER00200 

1200210 

1 

1 

PUT  SKIP  EDIT  (•  MSG:  '.MSG. STR)  ( A , A (MSG. LEN) ) ; 

TER00210 

1200220 

1 

1 

FREE  MSG; 

TER00220 

1200230 

1 

1 

VP.  WAIT. MSG  «  NULL,* 

TER00230 

1200240 

1 

1 

END; 

TER00240 

TER00250 

1200260 

1 

0 

WORK: 

PUT  SKIP; 

TER00260 

TER00270 

1200200 

1 

0 

OISPLAV  ('  COMMAND?')  REPLY  (COMMAND) ; 

TER00280 

TER00290 

1200300 

1 

0 

IF  (COMMAND  •  'BUILD')  THEN  DO; 

TER00300 

1200310 

1 

1 

PUT  SKIP  LIST  (■  LEVEL?  *)i 

TER0031 0 

1200320 

1 

1 

GET  LIST  (LEVEL); 

TER00320 

1200330 

1 

1 

MSGLEN  -  7; 

TER00330 

1200340 

1 

1 

ALLOCATE  MSG; 

TER00340 

1200350 

1 

1 

MSG. SIR  •  'NEW  VP| 1 ; 

IERO03S0 

1200360 

1 

1 

ALLOCATE  PFwSVC; 

TER00360 

1200370 

1 

1 

PF_SVC.SVC  •  'TERM'; 

TER00370 

1200380 

1 

1 

PFWSVC.  PTR  •  MSGPT.* 

TER00380 

1200390 

1 

1 

CALL  SEND  (LEVEL, 0,1. 'S' ,15,PT_SVC)J 

TER00390 

1200400 

1 

1 

GOTO  WORK; 

TER00400 

FIG 


7.3.2  LISTING  OF  PROCEDURE  TERM  (part  2) 


PL/1  OPTIMIZING  COMPILER 


TERM:  PRQC 


NUMBER  LEV  NT 


1200410 

1 

1 

ENOS 

1200430 

1 

0 

ELSE  IF  (COMMAND  *  ' 

SEND1)  THEN  00; 

1200440 

1 

1 

PUT  SKIP  LIST  (' 

LEVEL, VPID, BOXID. TYPE. ME5SAG 

1 200450 

1 

1 

GET  LIST  (LEVEL, VP10, BOXID. TYPE. MESSAGE); 

1200460 

1 

1 

MSGLEN  •  LENGTH  (MESSAGE ) * 

1200470 

1 

1 

ALLOCATE  MSG; 

1200480 

1 

1 

MSG. S 1 R  *  MESSAGE; 

1200490 

1 

1 

CALL  SEND  (LEVEL. 

VP  ID, BOXID, TYPE, MSGLEN, MSGPT) 

1200500 

1 

1 

GOTO  WORK; 

1200510 

1 

1 

END; 

1200530 

1 

0 

ELSE  IF  (COMMAND  «  ' 

WAIT')  THEN  DDj 

1200540 

1 

1 

PUT  SKIP  LIST  (* 

BOX>  • )  ; 

1200550 

1 

1 

GET  LIST  (BOXID); 

1200560 

1 

1 

PUT  SKIP  LIST  (' 

WAITING'),' 

1200570 

1 

1 

CALL  MAIT  (BOXID)  ; 

1 200500 

1 

1 

GOTO  LOOP; 

1200590 

1 

1 

END; 

12006)0 

1 

0 

ELSE  IF  (COMMAND  • 

SYNC)  THEN  DO; 

1200620 

1 

1 

PUT  SKIP  LIST  <• 

SYNCING’ ); 

1200630 

1 

1 

CALL  SYNC? 

1200640 

1 

1 

GOTO  LOOP; 

1200650 

1 

t 

end; 

1200670 

1 

0 

ELSE  IF  (COMMAND  ■ 

FINISH’)  THEN  DO; 

1 200660 

1 

1 

PUT  SKIP  LIST  (• 

FINISHING’); 

1200690 

1 

1 

CALL  FINISH; 

1200700 

1 

1 

return; 

1200710 

1 

1 

end; 

1200730 

1 

0 

ELSE  DO;  /*  UNKNOWN 

COMMAND  «/ 

1200740 

1 

1 

PUT  LIST  (*  ?7 * 

; 

1200750 

1 

1 

GOTO  work; 

1200760 

1 

1 

ENOS 

1200780 

1 

0 

END  TERM; 

TER00410 
TER00420 
TER00430 
TER00440 
TER00450 
TER00460 
TER00470 
TER004B0 
TER00490 
TER00500 
TER00510 
TER00520 
TER00530 
TEROOS40 
TER00550 
TER00560 
TER00570 
TER00580 
TER00590 
TER00600 
TER00610 
T ER00620 
TER00630 
TER00640 
TER00650 
TER00660 
TER00670 
TER00680 
TER00690 
TER00700 
TER00710 
TER00720 
TER00730 
TER00740 
TER00750 
TEROO70O 
TER00770 
TER00780 


FIG.  7.3.3  LISTING  OF  PROCEDURE  TERM  (part  3) 


If  there  is  a  message  in  the  waiting  box,  it  will  print 
the  message  as  well.  TERM  then  asks  for  commands  from 
the  user  and  executes  them.  It  recognizes  five  com¬ 
mands:  BUILD,  SEND,  WAIT,  SYNC  and  FINISH.  After  the 
command  is  performed,  (it  might  take  quite  sometime) ,  it 
will  identify  itself  and  ask  for  more  work. 

7.9.1.  Command  BUILD 

BUILD  creates  a  new  process  in  the  system  with  TERM 
as  the  top  level  procedure.  It  takes  an  argument,  the 
level  on  which  the  new  process  is  to  be  created.  Note 
that  at  the  beginning  of  simulation,  there  are  already  N 
(N  *  TERMINALS,  a  run  time  parameter)  instances  of  TERM 
at  level  0,  being  put  there  by  the  system  initialization 
procedure.  Repeated  uses  of  BUILD  can  really 
proliferate  the  number  of  instances  of  TERM. 

7.9.2.  Command  SEND 

Command  SEND  takes  five  arguments:  the  destination 
level,  VPID,  and  box  number,  the  type  of  message  (either 
'S'  or  'D')  and  the  message  itself  (which  must  be  within 
quotes) .  SEND  will  simply  call  (the  utility  procedure) 
SEND  to  send  the  message. 
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7.9.3.  Command  WAIT 

Command  WAIT  takes  one  argument,  the  waiting  box 
number.  It  will  prompt  'WAITING..',  and  calls  (the 
utility  procedure)  WAIT. 

7.9.4.  Commands  SYNC  and  FINISH 

Both  these  commands  take  no  argument  and  are  ex¬ 
ecuted  promptly  by  calling  the  corresponding  utility 
procedure. 

The  network  of  instances  of  TERM  is  like  a  network 
of  terminals  or  telex  machines.  The  user  can  tailor  the 
architecture  of  this  network  by  building  the  desired 
number  of  processes  at  each  level.  Since  the  user  can 
specify  :he  action  of  each  node  in  the  network,  any  ar- 
bitary  traffic  pattern  can  be  generated  and  tested. 

7.10.  A  Sample  Simulation  Session 

A  very  simple  simulation  session  is  scripted  in 
Figures  7. 4. 1-3.  The  configuration  in  this  simulation 
consists  of  two  levels,  each  with  two  processors. 

Simulation  starts  with  three  processes  at  level  0: 
VP0.1,  VP0.2,  and  VP0.3.  VP0.1  builds  a  process  at 

level  1  (VPl.l),  and  then  goes  into  waiting  for  a 
message  to  come  to  box  1.  Similarly,  VP0.2  builds  VPl.2 
then  waits  for  box  2;  and  VP0.3  builds  VP1.3  and  waits 
for  box  3. 
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R;  r»0.01/0.0t  01 : 08:47 
SM«1  1 

LOAD  SHELL  (  CLEAR  NOOUP  NOMAP  ) 

FILEOEF  STATS  DISK  STATS  LISTING  Al  (  BLOCK  800  ) 

R;  T*0 . 37/0. 65  01 : 08:59 

start 

EXECUTION  BEGINS... 

LEVEL  0: 

NO.  OF  PROCESSORS.  RRATE> 

2.1 

LEVEL  1 : 

NO.  OF  PROCESSORS.  RRATE> 

2.1 

THRU_RATE , G  B_GC . GC_GB , T  ERMI NA  LS> 


1.0, 0.3 


START  SIMULATION... 


TERM:  LEVEL  *  0  VP  ■  1  WAIT .BOX  «  0  SVR  ■  2  STIME  »  555 

MSG:  SET  UP  BY  IN  ITER 

COMMAND? 

build 

LEVEL> 


COMMANO? 

wait 

BOX> 


1 


WAITING 


TERM!  LEVEL  ■  0  VP  •  2  WAIT. BOX  »  0  SVR  »  1  STIME  «  1062 

MSG:  SET  UP  BY  IN  ITER 

COMMANO? 
but  Id 
LEVEL> 


1 


COMMANO? 

wait 

BOX> 

I 

FIG.  7.4  .1  SAMPLE  SIMULATION  SESSION  (part  1) 
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2 


WAITING 


TERM:  LEVEL  •  1  VP  •  1  WAIT. BOX  ■  0  SVR  ■  2  STIME  • 

MSG:  NEW  VP  1 


58299 


COMMAND? 

wait 

BOX> 


1 


WAITING 


TERM:  LEVEL  *  1  VP  ■  2  WAIT. BOX  ■  0  SVR  ■  1  STIME  ■  70248 

MSG:  NEW  VP  I 

COMMAND? 

wait 

80X> 


2 


WAITING 


TERM:  LEVEL  •  0  VP  ■  3  WAIT .BOX  •  0  SVR  *  1  STIME  * 

MSG:  SET  UP  BY  IN  ITER 

COMMANO? 
bui  Id 
LEVEL> 


1 


COMMANO? 

wait 

80X> 

t 

3 


WAITING  ‘  ' 

TERM:  LEVEL  «  1  VP  .  3  WAIT. BOX  •  0  SVR  -  2  STIME  »  T51919 

MSG:  NEW  VP  I 

COMMAND? 

aand 

LEVEL, VPID ,80X10 .TYPE, MESSAGE> 

0,1 ,1 , 'S' , 'from  1.3' 

COMMANO? 

f inian 

FINISHING 


TERM:  LEVEL  -  0  VP  -  1  WAIT. BOX  -  1  SVR  -  2  STIME  - 

MSG:  from  1 .3 

COMMAND? 


209840 


FIG.  7.4.2  SAMPLE  SIMULATION  SESSION  (part  2) 
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send 

LEVS  L . VPIO . BOXIO , TYPE , ME5SAGE> 

1.1.1,  'O', 'From  0.1* 

COMMAND? 

F inisn 

FINISHING 

TERM:  LEVEL  «  1  VP  »  1  NAIT.BOX  ■  1  SVR  »  1  STIME  « 
MSG:  from  0 . 1 

command? 

send 

LEVEL . VPIO , BOX ID , TYPE , MESSAG£> 

« 

1.2. 2,  'S', 'From  1.1' 

COMMAND? 

finisn 

FINISHING 

TERMS  LEVEL  -  1  VP  «  2  WAIT. BOX  -  2  SVR  »  2  STIME  » 
MSG:  from  1  . 1 

COMMA NO? 
send 

LEVEL, VPIO, BOXIO, TYPE. MESSAG£> 

• 

0,2.2, 'O', ' f rom  1.2' 

COMMAND? 
f inisn 

FINI  »-:iNG 


TERM:  LEVEL  ■  0  VP  «  2  NAIT.80X  ■  2  SVR  »  1  STIME  • 
MSG:  from  1  .2 

COMMAND? 

send 

LEVE  L , VP 1 0 , BOX 1 0 . TYPE , MESSAG  E> 

: 

0,3,3, 'S' , 'From  0.2’ 

COMMAND? 

f inisn 

FINISHING 

TERM:  LEVEL  •  0  VP  »  3  WAIT -SOX  ■  3  SVR  ■  2  STIME  « 
MSG:  From  0.2 

COMMANO? 

f inisn 

FINISHING 


R:  T«0 .64/1 . 78  01:11:57 


267747 


324723 


384779 


441675 


FIG.  7.^.3  SAMPLE  SIMULATION  SESSION  (part  3) 


At  level  1,  VPl.l  waits  for  box  1  and  VP1.2  waits 
for  box  2.  Then  VP1.3  sends  a  message  to  VP0.1.  After 
sending  the  message,  VP1.3  terminates  itself. 

When  VP0.1  wakes  up,  it  sends  a  message  to  VPl.l 
and  then  terminates.  Similarly,  VPl.l  sends  to  VP1.2; 
VP1.2  sends  to  VP0.2;  and  VP0.2  sends  to  VP0.3.  When 
VP0.3  finally  wakes  up,  it  is  the  last  process  left  in 
the  system,  and  when  it  terminates,  the  simulation  ses¬ 
sion  ends  as  well. 

In  Figures  7. 4. 1-3,  the  user  input  is  in  lower  case 
while  the  output  of  the  simulator  is  in  upper  case. 
Figure  7.5  diagrams  the  chronology  of  the  events  in  the 
simulation.  The  STATS  file  of  the  simulation  is  listed 
in  Figure  7.6. 
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SVR. ID*  1  SvR . ST I  ME*  268088  SVR.SUMEO-  1582; 

SAH; 

SVB.ID-  1  SVR . ST  I  ME*  400088  SVR.SUMEQ*  134592; 

SVR. ID-  2  SVR. ST  HUE*  400541  SVR.SUMEQ*  212533; 


8 . 0  CONCLUSION  &  OBSERVATIONS 


SHELL  is  part  of  the  first  step  in  the  gradual 
refinement  of  the  design  of  INFOPLEX.  As  a  simulator, 
it  has  two  salient  features. 

The  first  is  that  SHELL  offers  a  very  easy 
interface  with  application  programs.  An  ordinary  PL/1 
program  can  run  under  SHELL  with  minimal  or  no 
modification.  The  complete  transparent  context  swit¬ 
ching  mechanism  greatly  eases  the  writting  of  applica¬ 
tion  programs.  Without  this  feature,  an  application 
would  have  to  keep  track  of  under  which  process  it  is 
working.  Also,  an  application  would  not  be  able  to  exit 
(and  return  control  to  the  simulator)  from  inside  an 
inner  block,  since  PL/1  does  not  allow  control  be  trans- 
fered  back  into  the  inner  block.  This  would  severely 
handicap  the  programming  style  of  the  application 
program. 

The  second  salient  feature  of  SHELL  is  that  it 
simulates  a  mixture  of  microscopic  and  macroscopic 
events.  On  the  one  hand,  there  are  the  short  and  simple 
events  of  data  transaction  among  the  machines;  and  on 
the  other,  the  long  and  complex  events  of  running  ap¬ 
plication  programs.  This  integrated  approach  offers  a 
highly  realistic  simulation  because  one  can  study  the 
interaction  between  the  two  types  of  events.  For  exam¬ 
ple,  when  one  is  studying  the  microscopic  events  of 
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traffic  on  the  global  bus,  instead  of  having  to  use  a 
statistical  model  to  approximate  the  access  pattern  by 
the  gateway  controllers,  one  can  run  the  procedures  that 
generate  the  actual  patterns.  This  can  lead  to  insights 
which  may  otherwise  be  obscured. 

It  is  hoped  that  through  simulation  using  SHELL,  a 
more  optimal  designs  of  INFOPLEX  can  be  attained. 
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APPENDIX  A:  LISTINGS  OF  PL/1  PROCEDURES 


PL/1  Procedures: 

AAHER 

ADDQ 

CONS 

DEBUGR 

EXECUTE 

FINISH 

GBER 

GCER 

QEVENT 

SAHER 

SEND 

SHELL 

SLEEP 

STIMER 

SVCER 

SYNC 

TERM 

VPER 

VP START 

WAIT 
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PL/I  OPTIMIZING  COMPILER 


AAHER:  PROC  ( LOS , SVR , EVENT )  I 


PAGE  a 


SOURCE  LISTING 


NUMBER 

LEV 

NT 

II 

10 

0 

AAHER:  PROC  ( LOS , SV R . EVENT ) i 

AAH0001 0 

AAH00020 

30 

1 

0 

DCL 

1  LOS, 

AAH00030 

70  LEVEL  FIXED  BIN, 

LOSOOOI 0 

70  SRQ, 

LOS00020 

71  SIZE  FIXED  BIN, 

LOS00030 

71  MAX  FIXED  BIN, 

LOS00040 

70  DBS, 

LOSOOOSO 

71  SIZE  FIXED  BIN, 

LOS00060 

71  MAX  FIXEO  BIN, 

LOS00070 

70  VPS. 

LOSOOOSO 

71  TABLE  (  20), 

LOS00090  1 

80  BOSA  FIXED  BIN  (31), 

/•  A  DDR  (BOTTOM  DSA) 

4/VP  00010 

80  TOSA  FIXEO  BIN  (31) , 

/•  AOOR  (TOP  DSA) 

4/VP  00020 

80  SAVESIZE  FIXED  BIN  (31) 

,  /•  SIZE  OF  AREA  TO  BE  SAVED 

4/VP  00030 

80  SAFE  PTR, 

/•  ->  1ST  SAVBLK 

4/VP  00040 

BO  PROCNAME  CHAR  (7)  VAR, 

/•  NAME  OF  TOP  LEVEL  PROC 

4/VP  00050 

80  STATUS  CHAR  (13)  VAR, 

VP  00060 

80  MAIL  PTR. 

/•  CHAIN  OF  incoming  MAIL 

4/VP  00070 

80  WAIT, 

VP  00080 

1 

81  BOX  FIXED  BIN, 

/•  BOX  AWAITING  MAIL 

4/VP  00090 

VO 

1 

81  MSG  PTR, 

/•  MSG  IN  WAIT. BOX 

4/VP  00100 

80  VPID  FIXED  BIN, 

/•  INDEX  IN  THE  VPST 

4/VP  00110 

80  LEVEL  FIXEO  BIN, 

/•  LEVEL 

4/VP  00120 

< 

BO  VTIME  FIXED  BIN  (31) 

VP  00130 
AAH00030 

300040 

1 

0 

OCL 

1  SVR, 

AAH00040 

70  NEXT  PTR, 

SVR0001 0 

70  STIME  FIXEO  BIN  (31), 

SVR00020 

70  STIMEQ  FIXED  BIN  (31), 

/•  ACCUMULATED  STIME 

4/SVR00030 

70  RTIME  FIXED  BIN  (31), 

SVR00040 

70  RRATE  FIXEO  BIN  (15,7), 

/•  REAL  CPU  TICR  RATE 

4/SVR00050 

70  ID  FIXED  BIN 

SVR00060 

AAH00040 

500050 

1 

0 

ocl' 

1  EVENT, 

AAH00050 

70  NEXT  PTR. 

/•  NEXT  EVENT 

4/  EVEOOOtO 

70  STIME  FIXEO  BIN  (31), 

EVE00020 

70  TYPE  CHAR  (13)  VAR, 

EVE00030 

70  INDEX  FIXEO  BIN  (31), 

EVE00040 

70  PTR  PTR 

EVE00050 

AAH00050 

700060 

1 

0 

ocl’ 

(TH1SL0S.THISSVR)  PTR  EXTERNAL 

STATIC! 

AAH00060 

700070 

1 

0 

DCL 

STM  FIXEO  BIN  (31); 

AAH00070 

800010 

1 

0 

DCL 

1  OEBUG  EXTERNAL  STATIC, 

OEBOOOIO 

3  SLEEPS  BIT(1)  INIT  ('O'B), 

DEB00020 

3  SAHERS  BIT ( 1 )  INIT  ('O'B), 

OEB00030 

PL/1  OPTIMIZING  COMPILER 


AAHER:  PROC  (LOS, SVR, EVENT)) 


NUMBER 


900010 

900030 


T 0000 10 
1000030 


1100010 

1300010 

1300010 

1300150 

1300170 

13OO1B0 

1300300 

1300310 

1300320 

1300330 

13002-10 

1300350 

1300260 

1300370 

1300380 

1300290 

1300310 

1300320 

1300330 

1300340 

1300350 

1300360 

1300370 

1300380 

1300400 

1300410 

1300420 


LEV  NT 


2  SCHEDULERS  8!T(1)  1N1T  (’O'l), 

3  SHELLS  BIT( 1 )  INIt  ( 'O'  8) , 

2  AAHERS  Bird)  INIT  CO'B)! 

1  0  DCL  PT.AOOR  PTR; 

I  0  DCL  1  PF_ADOR  BASED  (PT  ADOR), 

2  VPID  FIXED  BIN, 

3  BOX ID  FIXED  BIN, 

3  PTR  PTRJ 

I  0  DCL  PT_S  PTR; 

1  0  DCL  1  PF_S  BASEO  (PT  S), 

2  LEN  FIXED  BIN, 

3  PTR  PTR; 

1  0  DCL  STIMER  ENTRY  RETURNS  (FIXED  BIN  (S1))i 

1  0  DCL  QEVENT  ENTRY  (F1XE0  BIN,  FIXEO  BIN  (31),  CHAR(P)  VAR, 

FIXEO  BIN  (31),  PTR) I 
I  0  DCL  SVCER  ENTRY  (FIXED  BIN,  PTR); 

1  0  DCL  (AODR)  BUILT IN; 

1  0  THISLOS  ■  ADDR  (LOS); 

1  O  THISSVR  •  ADDR  (SVR): 

1  o  IF  (EVENT. TYPE  •  '0* )  THEN  OOl 

1  *  PT_ADDR  -  EVENT. PTR) 

<  <  LOS. DBB. SIZE  •  LOS. D8B. SIZE  -  1; 

1  1  END; 

1  o  ELSE  DO;  /•  EVENT. TYPE  -  S  «/ 

1  1  PT_S  *  EVENT .PTR; 

1  1  LOS. SRO. SIZE  .  LOS. SRO, SIZE  -  PF  S.LENl 

1  *  PT.ADDR  •  PF  S.PTR; 

1  1  FREE  PF  S; 

1  1  END ; 

1  0  IF  PF.ADDR.VPID  ■  0  THEN  DO; 

1  1  CALL  SVCER  (PF.R0DR.B0X1D.PF_ADDR.PTR)! 

I  •  FREE  PF.AOOR; 

II  End; 

1  0  ELSE  DO; 

1  1  STM  •  STIMER! 

J  J  CALL  PevENT  (L0S.LEVEL»3+3.STM,>L0GMSQ',0.PT_A00R>I 

1  0  STM  >  STIMER; 

1  o  IF  (OEBUG. AAHERS)  THEN  DO; 

1  ’  pUT  SKIP  EDIT  (•  AAHER:  TO  •  ', SVR. STINE. 1  TI  • 

STM.*  OT  •  1 ,SVR.ST1ME0) 

(A.F(II)  ,A,F(11),A,F(11))| 


0EB00040 

DEB00050 

DEB00060 

PFAOOOIO 

PF A 00020 

PFA00030 

PFA00040 

PFA00050 

PFROOOBO 

PFS00010 

PFS00030 

PFS00030 

PFS00040 

PFSOOOSO 

AAH001 10 

ST  100010 

OEVOOOIO 

QEV00030 

SVC00010 

AAH001S0 

AAH00I60 

AAH001 TO 

AAHOOIBO 

AAH00190 

AAH00200 

AAH00210 

AAH00230 

AAH00330 

AAH00240 

AAH003S0 

AAH003S0 

AAH00270 

AAH002B0 

AAH00290 

AAH00300 

AAH0031 0 

AAH00320 

AAH00330 

AAH00340 

AAH00350 

AAH00380 

AAH00370 

AAH00380 

AAH00390 

AAH00400  ' 

AAHOO4I0 

AAH00420 

AAH00430 

AAH00440 


„L/I  OPTIMIZING  COMPILER  PR0C  ( LOS. SVR, EVENT), 


NUMBER  LEV  NT 

AAH00450 
AAH00460 
AAH00470 
AAH00480 
AAH00490 


,300450  1  1 

1300460  1  0 

,300470  ,  0 


SVr!stIMEQ  •  SVR.STIMEO  ♦  STM  -  SVR.STIME, 
SVR.ST1ME  •  STM, 


,300490  ,  0  END: 


PL/I  OPTIMIZING  COMPILER 


adoq:  PROC  (Q,PO) 


PAGE  1 


SOURCE  LISTING 


NUMBER  LEV  NT 


I 

QO 

NJ 

I 


10  0  AOOg:  PROC  (Q,PO); 


/•  0  ->  HEAD  OP  QUEUE 

PO  ->  OBJECT  TO  BE  ADDED  •/ 

60  1  0  DCL  (Q. PQ.PQ2 .PO.PT  )  PTR ; 

70  1  0  DCL  (ADOR.NULL)  BUI LT IN; 

/•  TB  ««  FIRST  PART  OP  SVR  OR  EVENT  •  / 
100  1  0  DCL  1  TB  BASED  (PT), 

2  NEXT  PTR, 

2  STIME  FIXED  BIN  (31)} 


140  10 

150  10 

160  10 
170  11 

1  BO  11 
190  11 

200  1  1 


PQ  •  A DOR (0) ; 

P02  •  PQ->TB.M*XT; 

DO  WHILE  (PQ2  SMLLU 

IF  (PQ2->T®. STIME  >-  P0->T1.5T 1ME)  THEN  GOTO  FOUND* 
PQ  »  PQ2; 

PQ2  •  PQ“>T§ .NEXT ! 

END; 


220  1  0  FOUNO: 

PO->TB.NE*T  >  PQ2 J 
240  1  0  PQ->T».NEXT  •  PO; 

260  1  0  END  ADOQ; 


AOOOOOtO 
AD000020 
ADD00030 
ADD00040 
ADD00050 
ADD00060 
ADD00070 
ADD00060 
ADD00090 
AOOOOIOO 
AD0001 10 
AD0001 20 
ADD00130 
ADDOOMO 
ADD001S0 
ADD00160 
ADD00170 
ADD001 BO 
AOOOO  f 90 
A0D00200 
A0D0021 0 
ADD00220 
ADD00230 
ADD00240 
ADD00250 
AOD00260 
ADD00270 
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PL/1  OPTIMIZING  COMPILER 


CONS:  PRQC  (CAR,  COR)  RETURNS  (PTR) J 


RAGE  a 


SOURCE  LISTING 


NUMBER 

LEV 

NT 

10 

0 

CONS:  PROC  (CAR.  COR)  RETURNS  (PTR); 

CONOOOIO 

100010 

1 

0 

DCL  LISTPT  PTR; 

L  I  500010 

LIS00020 

100030 

1 

0 

DCL  1  LIST  BASED  (LISTPT), 

LJS00030 

2  NEXT  PTR, 

L1S00040 

2  THIS  ptr; 

L IS00050 

L1S00060 

CGN00030 

200040 

1 

0 

DCL  (CAR,  CDR)  PTR; 

CON0004C 

CONOOOSO 

200060 

1 

0 

ALLOCATE  LIST; 

CDN00060 

200070^ 

1 

0 

LIST. NEXT  •  CDR; 

CON00070 

2000B0 

1 

0 

LIST. THIS  -  CAR; 

coNOooao 

200090 

1 

0 

RETURN  (LISTPT)  ; 

C0N00090 

CONOOIOO 

200110 

1 

0 

END  CONS; 

CONOO1 1 0 

GO 

U> 

I 


PL/I  OPTIMIZING  COMPILER 


EXECUTE:  PROC  (PROCNAME) S 


SOURCE  LISTING 

NUMBER  LEV  NT 


10 

0 

execute:  PROC  (PROCNAME); 

EXE0001 0 

30 

1 

0 

DCL 

PROCNAME  CHAR( • )  VAR; 

EXE00020 

EXE00030 

40 

1 

0 

DCL 

TERM  ENTRY; 

EXE00040 

60 

1 

0 

IF  PROCNAME  •  'TERM'  THEN  00;  CALL  TERM;  RETURN;  END; 

EXE00050 

EXE00060 

80 

1 

0 

< 

PUT  SKIP  LIST  ('  ERROR!  UNKNOWN  PROCNAME.  '.PROCNAME. 

EXE00070 

EXEOOOBO 

100 

1 

0 

‘  (EXECUTE).')! 

STOP; 

EXE00090 

EXE00100 

EXE001 10 
EXE001 20 


120 


0  END  EXECUTE; 


PL/I  OPTIMIZING  COMPILER 


DEBUGR:  PRQC; 
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SOURCE  LISTING 


NUMBER 

LEV 

NT 

10 

0 

DEBUGR:  PROCJ 

DEB0001 0 

DEB00020 

100010 

1 

0 

DCL  1  DEBUG  EXTERNAL  STATIC, 

DEB0001 0 

2  SLEEPS  BIT(t)  IN I T  (’O'B). 

DEB00020 

2  SAHERS  B I T (  1  )  INI T  ('O'B), 

DEB00030 

2  SCHEDULERS  BIT(1)  INIT  ('O'B), 

DEB00040 

2  SHELLS  BIT(  1)  INIT  ('O'B}. 

DEB00050 

2  AAHERS  BIT(t)  INIT  ('O'B)i 

OEB00060 

DE600030 

DEB00040 

200050 

1 

0 

DEBUG. SAHERS  •  ' 1'B; 

DEB00050 

200060 

1 

0 

DEBUG. SCHEDULERS  •  '1'B; 

DE BO 0060 

200070 

1 

0 

DEBUG. SHELLS  •  '1'B; 

DEB00070 

200080 

1 

0 

DEBUG. AAHERS  -  ' 1 *Bj 

DEBOOOBO 

DEB00090 

200100 

1 

0 

ENO  DEBUGR; 

DEBOO 100 

I 

00 

cn 


I 


f 

I 


PL/I  OPTIMIZING  COMPILER 


FINISH!  PROC 


SOURCE  LISTING 

NUMBER  LEV  NT 


10  0  FINISH:  PROC:  F IN0001 0 

F I N00020 

X INCLUDE  VPX; •♦♦•FINOOOSO 
100010  I  0  OCL  THISVP  PTR  EXTERNAL  STATIC:  /*  ->  CURRENT  VP,  SET  BY  VPER  A/VPX00010 

VPX00020 

100030  1  0  OCL  1  VP  BASED  (THISVP),  XINCLUDE  VP|  .«•»•••..«*....».. .«•»*. ••♦•••••••VPX00030 

80  BDSA  FIXED  BIN  (31),  /•  ADDR  (BOTTOM  OSA)  «/VP  00010 

BO  TDSA  FIXED  BIN  (31),  /•  ADDR  (TOP  DSA )  */VP  00020 

80  SAVESIZE  FIXED  BIN  (31),  /•  SIZE  OF  AREA  TO  BE  SAVED  */VP  00030 

BO  SAFE  PTR.  /*  ->  1ST  SAVBLK  «/V P  OOOAO 

80  PROCNAME  CHAR  (7)  VAR,  /•  NAME  OF  TOP  LEVEL  PROC  */VP  00050 

80  STATUS  CHAR  (12)  VAR,  VP  00060 

80  MAIL  PTR,  /•  CHAIN  OF  INCOMING  MAIL  */VP  00070 

80  WAIT,  VP  00080 

81  BOX  F1XE0  BIN,  /•  BOX  AWAITING  MAIL  */VP  00090 

81  MSG  PTR,  /•  MSG  IN  WAIT. BOX  */VP  00100 

80  VPID  FIXED  BIN,  /«  INOEX  IN  THE  VPST  »/VP  00110 

80  LEVEL  FIXEO  BIN.  /*  LEVEL  »/VP  00120 

80  VTIME  FIXED  BIN  (31)  VP  00130 

........ . .  )  VPX00030 

VPX00040 

.............  FIN00030 

FIN00040 

XINCLUDE  QEVENT  I.......................................  ................  F  IN00050 

500010  1  0  DCL  QEVENT  ENTRY  (FIXED  BIN,  FIXEO  BIN  (31),  CMAR(»)  VAR,  QEV00010 

FIXEO  BIN  (31),  PTR);  0EV00020 

. .  FINOOOSO 

500060  1  0  DCL  NULL  BUILT  IN;  FIN00060 

500070  1  0  DCL  SLEEP  ENTRY;  FIN00070 

XINCLUDE  STIMER ................ FINOOOBO 

600010  1  0  DCL  STIMER  ENTRY  RETURNS  (FIXEO  BIN  (31))I  STIOOOIO 

FINOOOBO 

FIN00090 

600100  1  0  VP. WAIT. BOX  •  -1;  FIN00100 

600110  1  0  CALL  OEVENT  (VP. LEVEL«3*3, STIMER, 'FINISH'.VP. VPID, NULL)!  FINOOItO 

600120  1  0  CALL  SLEEP;  FIN00120 

FIN00130 

800140  1  0  END;  FIN0014Q 


PL/1  OPTIMIZING  COMPILER  GBER:  PROC  (SVR, EVENT) I 
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SOURCE  LISTING 


NUMBER  LEV  NT 


00 

I 


10 

30 


200040 


400050 

500010 


600070 

700010 

700030 


800010 

B00030 


1 


1 


1 


1 


t 


1 


1 


0  GBER:  PROC  (SVR, EVENT); 

0  OCL  1  SVR,  XINCLUDE  SVR; . . 

70  NEXT  PTR, 

70  ST  1  ME  FIXED  BIN  (31), 
70  STIMEO  FIXEO  BIN  (31), 
70  RTIME  FIXED  BIN  (31), 
70  RRATE  FIXED  BIN  (15,7) 
70  ID  FIXED  BIN 


GBE0091 0 
GBE00020 

»*«»«•••••••»••» ••••••••##•• ••••GBE00030 

S7R00010 

SVR00020 

/♦  ACCUMULATED  STIME  •/SVR00030 

SVR00040 

/•  REAL  CPU  TICK  RATE  •/SVR00050 

SVR00060 
GBE00030 
GBE 00040 
•/  EVE00010 
EVE00020 
EVE00030 
EVE00040 
EVE00050 
GBE00040 
GBE00050 
G6E00060 
PAR0001 0 
PAR00020 
PARQ0030 
PAR00040 
PAR00050 
PAR00060 
GBE00060 
GBE00070 
GBE00080 
PFL0001 0 
PFL00020 
PFL00030 
PFL00040 
PFL00050 
PFL00060 
GBE00060 
GBE00090 
PFM00010 
PFM00020 
PFM00030 
PFM00040 
PFM00050 
PFM00060 
PFM00070 
GBE00090 
GBE00100 
GBE001 10 


0  DCL  1  EVENT.  XINCLUDE  EVENT 

70  NEXT  PTR,  /•  NEAT  EVENT 

70  STIME  FIXED  BIN  (31), 

70  TYPE  CHAR  (12)  VAR, 

70  INDEX  FIXED  BIN  (31), 

70  PTR  PTR 


0  OCL  STM  FIXED  BIN  ( 31 ); 

XINCLUDE  P ARAMS; ♦** 

0  DCL  1  PARAMS  EXTERNAL  STATIC, 

2  THRU^RATE  FIXEO  BIN  (31,7), 
2  DELAY _G8_GC  FIXED  BIN  (31), 
2  DELAY_GC_G8  FIXED  BIN  (31), 
2  TERMINALS  FIXEO  BIN; 


0  DCL  STATS  FILE  EXTERNAL; 

XINCLUDE  PFlE VEL; ••  ••••••*•••••• 

0  DCL  PT_LEVEL  PTR*, 

0  DCL  1  PF  LEVEL  BASED  (PT_LEVEL), 
2  LEVEL  FIXED  BIN, 

2  PTR  PTR; 


X  INCLUOE  . . ••••• 

0  OCL  PT_MSG  PTR; 

0  DCL  1  Pt.MSG  EASED  (PT_MSG), 
2  LEN  FIXED  BIN, 

2  TYPE  CHAA’  (12)  VAR, 

2  PTR  PTR; 


XINCLUDE  OEVENT; 


AD- A 116  592 
UNCLASSIFIED 
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PL/1  OPTIMIZING  COMPILER 


CCER:  PROC  ( LOS ,SVR, EVENT) f 


SOURCE  LISTING 


NUMBER  LEV  NT 


10  0  CCER:  PROC  (LOS, SVR, EVENT); 

30  «  0  OCL  t  LOS, 

70  LEVEL  EIJtEO  BIN, 

70  SRO, 

71  SIZE  FIXEO  BIN, 

71  MAX  FIXED  BIN. 

70  DBB, 

71  SIZE  FIXED  BIN, 

71  MAX  FIXED  BIN, 

70  VPS. 

71  TABLE  (  20), 

80  BDSA  FIXEO  BIN  (31), 

BO  TOSA  FIXEO  BIN  (31) , 

BO  SAVESIZE  FIXED  BIN  (31), 
BO  SAFE  PTR, 

80  PROCNAME  CHAR  (7)  VAR, 
80  STATUS  CHAR  (13)  VAR, 

BO  MAIL  PTR, 

80  MAIT, 

81  BOX  FIXEO  BIN, 

81  MSG  PTR, 

BO  VPIO  FIXEO  BIN. 

80  LEVEL  FIXED  BIN, 

80  VTIME  FIXEO  BIN  (31) 

300040  1  0  DCL  1  SVR, 

70  NEXT  PTR, 

70  STIME  FIXEO  BIN  (31), 

70  STIMEO  FIXEO  BIN  (31), 

70  RTIME  FIXED  BIN  (31). 

70  RRATE  FIXED  BIN  (15,7), 

70  10  FIXEO  BIN 

soooso  i  o  dcl'i  EVENT, 

70  NEXT  PTR, 

70  STIME  FIXEO  BIN  (31), 

70  TYPE  CHAR  (1J)  VAR, 

70  INDEX  FIXEO  BIN  (31), 

70  PTR  PTR 

800010  i  o  dcl'i  params  external  static, 

a  THRU.RATE  FIXEO  BIN  (31,7). 
2  DELAY  GB.GC  FIXEO  BIN  (31), 
a  OELAY.GC.GB  FIXED  BIN  (31), 
2  TERMINALS  FIXED  BIN; 


/•  ADDA  (BOTTOM  DSA) 

/•  ADOR  (TOP  DSA) 

/•  SIZE  OF  AREA  TO  BE  SAVED 

/•  ->  1ST  SAVBLK 

/•  NAME  OF  TOP  LEVEL  PROC 

/•  CHAIN  OF  INCOMING  MAIL 

/•  BOX  AWAITING  MAIL 
/•  MSG  IN  WAIT. BOX 
/•  INDEX  IN  THE  VPST 
/•  LEVEL 


/•  ACCUMULATED  STIME 
/•  REAL  CPU  TICK  RATE 


/•  NEXT  EVENT 


GCE0001 0 
GCE00020 
GCE00030 
LOSOOOIO 
LOS00020 
LOS00030 
LOS00040 
LOSOOO50 
LOS00060 
LOS00070 
LOSOOOBO 
LDS00090  1 

•/VP  00010 
•/VP  00020 
•/VP  00030 
*/VP  00040 
•/VP  00050 
VP  00060 
•/VP  00070 
VP  00080 
•/VP  00090 
•/VP  00100 
•/VP  00110 
•/VP  00120 
VP  00130 
GCE00030 
GCE00040 
SVR0001D 
SVR00020 
•/SVR00030 
SVR00040 
•/SVR00050 
SVR00060 
GCE00040 
GCEOOOSO 
*/  EVE00010 
EVE00020 
EVE00030 
EVE00040 
EVE00050 
GCEOOOSO 
PAROOOIO  • 
PAR00020 
PAR00030 
PAR00040 


i 


Pl/l  OPTIMIZING  COMPILER  CCER:  PROC  (LOS ,SVR .EVENT) I 


PRO  E  1 


NUMBER  LEV  NT 


R 


B00070  1  0  OCL  STATS  FILE  EXTERNAL: 

9000 to  1  0  OCL  OEVENT  ENTRY  (FIXED  BIN,  FIXED  BIN  (31),  CHAR(a)  VAR, 

FIXED  BIN  (31  ),  PTR); 

900100  1  0  OCL  MAX  BUI LT IN; 

900130  \  0  PUT  FILE  (STATS)  SKIP  EOIT  (*  GC  (', LOS . LEVEL, 1 ) «  ', EVENT .TYPE, 

•  DELAY  •  ' ,MAX(O.SVR.STIME-EVENT. STINE)) 
(A.F(3).A,A(6),A,F(11)) j 

900160  1  0  IF  (EVENT. TYPE  •  'MSGIN')  THEN  CALL  GCERIN; 

900170  1  0  ELSE  CALL  GCEROUTl 

900190  1  0  RETURN; 


900330  1  0  GCERIN;  PROC; 

1000010  3  o  OCL  PT_MSG  PTR; 

1000030  3  0  OCL  1  PF  MSG  BASED  (PTJiSG), 

3  LEN  FIKEO  BIN, 

,  3  TYPE  CHAR  (13)  VAR, 

VO  3  PTR  PTR; 

O  1000350  3  0  OCL  STM  FIXED  BIN  (31)1 

1000370  3  0  PT _MSG  •  EVENT. PTR) 

1000380  30  IF  (PF  MSG. TYPE  •  'S')  THEN  00; 

1000390  3  I  LOS. SRO. SIZE  .  LOS. SRO. SIZE  f  PF_MSG.LEH) 

1000300  3  1  LOS. SRO. MAX  •  MAX  ( LOS. SRO- MAX ,  LOS . SRO. SI ZE ) t 

1000310  3  1  END; 

1000330  3  0  ELSE  DO;  /•  PF_MSG.TYPE  *  ‘O'  •/ 

1000330  3  1  LOS. DBB. SIZE  •  LOS. DBA. SIZE  ♦  t( 

1000340  3  1  L0S.DB8.MAX  •  MAX  ( LOS. DBB. MAX ,  LOS . DBB. SIZE) t 

10003S0  3  1  ENO; 

1000370  3  0  STM  «  SVR.ST1ME  ♦  PAR AMS . THRU_RAT E  *  PF.MSfl.LEN; 

1000380  3  0  CALL  OEVENT  ( 10 S.  LEVE L«3+3 , STM, PF_MSG. T YP£ ,0. PF_MSQ  . PTR) I 

1000390  2  0  FREE  PFJiSG: 

1000400  2  0  SVR.STIMEO  -  5VR.ST1MEQ  ♦  STM  -  SVR.STIME) 

1000410  2  0  SVR.STIME  »  STM) 

1000430  2  0  END  GCERIN; 


1000460  1  0  GCEROUT:  PROC; 

1100010  3  0  OCL  PT.LEVEL  PTR; 


GCE00070 
GCEOOOBO 
QEV00010 
QEV00020 
GCEOOIOO 
GCE001 10 
GCE00120 
GCE00130 
GCE00140 
GCE00150 
GCE00160 
GCE00170 
GCE001B0 
GCE00190 
GCE00200 
GCE0O2I0 
GCE00220 
GCE00230 
PFM00010 
PFM00020 
PFM00030 
PFM00040 
PFM00050 
PFMOOOGO 
GCE002S0 
GCE00260 
GCE00270 
GCE002B0 
GCE00290 
GCE00300 
GCE003I0 
GCE00330 
GCE00330 
GCE00340 
GCE003S0 
GCE00360 
0CE00370 
GCE0O3B0 
GCE00390 
GCE00400 
GCE00410 
GCE00420 
GCE00430 
GCE00440 
GCE004SO 
GCE00460 
GCE00470 
PFL00010 
PFL00020 


I 


PL/I  OPTIMIZING  COMPILER 


GCER:  PROC  ( LOS , SVR , EVENT ) I 


NUMBER 

LEV 

NT 

1100030 

2 

0 

DCL 

1  PF  LEVEL  BASED  (PT  LEVEL), 

PFL00030 

2  level  fixeo  bin, 

PFL00040 

2  PTR  PTR; 

PFL00050 

1200010 

2 

0 

DCL 

PT_MSG  PTR; 

PFM00010 

PFM00020 

1200030 

2 

0 

DCL 

1  PF  MSG  BASED  (PT  MSG), 

PFM00030 

2  LEN  FIXEO  BIN, 

PFM00040 

2  TYPE  CHAR  (12)  VAR, 

PFM00050 

2  PTR  PTR; 

PFM00060 

1200500 

2 

0 

DCL 

STM  FIXEO  BIN  (31); 

GCE 00500 

GCE0051 0 

1200520 

2 

0 

STM  »  SVR.ST1ME  ♦  PARAMS. DELAY  GC  GB; 

GCE 00520 

1200530 

2 

0 

CALL  QEVENT  (0 , STM, 1 MSG* ,0, EVENT. PTR) t 

GCE00530 

1200540 

2 

0 

PT. LEVEL  »  EVENT. PTR; 

GCE 00540 

1200550 

2 

0 

pt.msg  •  pf.level.ptr; 

GCE00S50 

1200560 

2 

0 

STM  «  PARAMS. THRU  RATE  •  PF. MSG. LEN; 

GCE00560 

1200570 

2 

0 

SVR.STIMEO  -  SVR.STIMEQ  ♦  STM; 

GCE00570 

1 200580 

2 

0 

SVR.ST1ME  •  SVR.STIME  4  STM; 

GCE005B0 

GCE 00590 

1200600 

2 

0 

ENO 

GCEROUT; 

GCE 00600 

GCE 0061 0 

GCE 00620 

1200630 

1 

0 

END 

GOER; 

GCE00630 

I 

VO 


I 


PL/I  OPTIMIZING  COMPILER 


OEVENT:  PROC  ( 10, STIME, TYPE , INDEX, PTR) I 
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SOURCE  LISTING 


NUMBER  LEV  NT 


s. 


10  0  OEVENT:  PROC  (lO.STIME.TVPE.INOEX.PTR)! 


100010 

100020 


DCL  SOUEUE  (0: 
OCL  EOUEUE  (0: 


6)  PTR  EXTERNAL  STATIC; 
6)  PTR  EXTERNAL  STATIC; 


100060  1  0  OCL  EPT  PTR; 

100070  1  0  OCL  1  EVENT  BASED  (EPT), 

70  NEXT  PTR. 

70  STIME  FIXED  BIN  (31), 
70  TYPE  CHAN  (12)  VAR, 

70  INDEX  FIXED  BIN  (31), 
70  PTR  PTR 


/•  NEXT  EVENT 


I 

«> 

to 

I 


200090 

1 

0 

OCL 

10  FIXED  BIN; 

200100 

1 

0 

DCL 

STIME  FIXED  BIN  (31); 

2001 10 

1 

0 

OCL 

TYPE  CHAR ( • )  VAR; 

200120 

1 

0 

OCL 

INDEX  FIXED  BIN  (31)1 

2001 30 

1 

0 

OCL 

PTR  PTR; 

200150 

1 

0 

OCL 

ADDO  ENTRY; 

200160 

1 

0 

OCL 

NULL  buIltin; 

200180 

1 

0 

ALLOCATE  EVENT; 

200190 

1 

0 

EVENT. NEXT  •  NULL; 

200200 

1 

0 

EVENT. STIME  «  STIME; 

200210 

1 

0 

EVENT. TYPE  «  TYPE: 

200220 

1 

0 

EVENT. INDEX  •  INOEXl 

200230 

1 

0 

EVENT. PTR  .  PTR; 

200240 

1 

0 

CALL  ADDO  (EQUEUE(IQ) 

200260 

1 

0 

ENO  OEVENT; 

QEV00010 
0EV00020 
OS  00010  1 

OS  00020  I 

QEVQ0050 
0EV00060 
OEV00070 
•/  EVEOOOtO 
EVE00020 
EVE00030 
EVE00040 
EVE00090 
0EV00070 
QEV00080 
0EV00090 
QEV00100 
0EV00110 
QEV00120 
OEV00130 
QEV00140 
0EV00150 
QCV0OI60 
OEVOOITO 
QEV00180 
0EV00190 
QEV00200 
QEV0021 0 
QEV00220 
QEV00230 
QEV00240 
QEV00250 
QEV002B0 


I 

I 


) 


PL/I  OPTIMIZING  COMPILER 


SAHER:  PROC  < LOS , SVR ■ EVENT ) j 


SOURCE  LISTING 


NUMBER  LEV  NT 


0  SAHER:  PROC  ( LOS, SVR .EVENT); 

0  DCL  I  LOS, 

70  LEVEL  FIRED  BIN, 

70  SRQ, 

71  SIZE  FIXED  BIN, 

71  MAX  FIXEO  BIN, 

70  DBB. 

71  SIZE  FIXED  BIN, 

71  MAX  FIXED  BIN, 

70  VPS. 

71  TABLE  (  20), 

80  BOSA  FIXED  BIN  (31), 

80  TDSA  FIXED  BIN  (31), 

80  SAVESIZE  FIXED  BIN  (31), 
80  SAFE  PTR, 

80  PROCNAME  CHAR  (7)  VAR, 

BO  STATUS  CHAR  (12)  VAR, 

80  MAIL  PTR. 

80  MAIT, 

81  BOX  FIXED  BIN, 

81  MSG  PTR. 

80  VP10  FIXEO  BIN, 

80  LEVEL  FIXEO  BIN, 

80  VTIME  FIXEO  BIN  (31 ) 

I 

0  DCL  1  SVR, 

70  NEXT  PTR, 

70  SUME  FIXEO  BIN  (31), 

70  STIMEQ  FIXED  BIN  (31), 

70  RTIME  FIXEO  BIN  (31), 

70  RRATE  FIXED  BIN  (19.7), 

70  ID  FIXED  BIN 

o  ocl’i  EVENT, 

70  NEXT  PTR, 

70  STIME  FIXED  BIN  (31), 

70  TYPE  CHAR  (12)  VAR, 

70  INDEX  FIXED  BIN  (31), 

70  PTR  PTR 


/•  A  DDR  (BOTTOM  DSA) 

/•  A DDR  (TOP  DSA) 

/♦  SIZE  OF  AREA  TO  BE  SAVED 

/•  ->  1ST  SAVBLK 

/•  NAME  OF  TOP  LEVEL  PROC 

/•  CHAIN  OF  INCOMING  MAIL 

/•  BOX  AMAITINO  MAIL 
/•  MSG  IN  WAIT. BOX 
/•  INDEX  IN  THE  VPST 
/•  LEVEL 


/•  ACCUMULATED  f TIME 
/•  REAL  CPU  TICK  RATE 


/•  NEXT  EVENT 


SAH0001 0 
SAH00020 
SAH00030 
LOSOOOIO 
LOS 00020 
LOS00030 
LOSOOOAO 
LOSOOOSO 
LOSOOOBO 
LOS 00070 
LOSOOOBO 
LOSOOOBO 
•/VP  00010 
*/VP  00020 
•/VP  00030 

*/vp  00040 

•/VP  00090 
VP  00060 
•/VP  00070 
VP  OOOBO 
•/VP  00090 
»/VP  00100 
•/VP  001 10 
*/VP  00120 
VP  00130 
SAH00030 
SAH 00040 
SVR00010 
SVR00020 
•/SVR00030 
5VR00040 
•/SVR00090 
SVR00060 
SAH00040 
SAH00090 
•/  EVE 00010 
EVE00020 
EVE00030 
EVE 00040 
EVE00090 
9AH00090 


700070  1  0  DCL  (THISLOS,  THISSVR)  PTR  EXTERNAL  STATIC! 

700080  1  0  DCL  STM  FIXED  BIN  ( 31  )  | 

600010  1  0  OCL  1  PARAMS  EXTERNAL  STATIC, 

2  THRU.RATE  FIXED  BIN  (31.7), 


pl/i  optimizing  compiled  saner:  proc  ( los.sva. event ) ; 
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NUMBER  LEV  NT 


2  DELAY  GB_GC  FIXEO  BIN  (31). 

2  DELAY .GC.GB  FIXED  BIN  ( 31 ) . 

2  TERMINALS  FIXED  BIN; 

9000(0  1  0  DCL  1  DEBUG  EXTERNAL  STATIC. 

2  SLEEPS  BIT!  1  )  IN  IT  ('0'8), 

2  SAHERS  BU(t>  INI  T  ( '  0 1  B)  , 

2  SCHEDULERS  BIT(()  INS T  I '  O'B)  . 

2  SHELLS  B1T(I)  INIT  ('0’B), 

2  AAMERS  a  1T(()  INIT  ('O'B); 

900120  t  0  DCL  (AOOR.NULL)  BUILTIN; 

10000(0  1  0  DCL  STIMER  ENTRY  RETURNS  (FIXEO  BIN  (30)1 

1000140  1  0  DCL  VPER  ENTRY! 

1000160  1  0  TH1SL0S  •  ADOR  (LOS): 

1000170  1  0  THISSVR  •  ADOR  (SVR); 

1000190  1  0  IF  (DEBUG. SAHERS)  THEN  00; 

1000200  1  1  PUT  SKIP  EOIT  (•  SANER:  LEVEL  •  *.10$. LEVEL, 

•  S  •  (• .SVR.I0.SVR.ST1ME,')', 

*  E  ■  C  .EVENT. TYPE, EVENT. ST 1ME,')') 

(A , F(2) .  A,F(2).F(11 >,A.  A , A( 13 ) ,» ( 11 ) , A) 1 

1000240  1  1  END; 

1000260  1  0  IF  (EVENT. TYPE  •  ’LOGMSG')  THEN  00; 

'  1000270  1  1  CALL  MAILMAN  (LOS. VPS,  EVENT. PTR): 

Z.  10002BO  1  1  End; 

I  1000290  1  0  ELSE  IF  ( EVENT . TYPE  «  'SYNC')  THEN  DO; 

1000300  1  I  IF  (LOS. VPS. TABLEIEVENT. INDEX) .STATUS  •  'RUNNING')  THEN 

LOS. VPS. TABLE(EVENT. INDEX). STATUS  «  'RUNNABLE') 

/•  DO  NOT  CHANGE  NASCENT  •/ 

1000330  1  1  END; 

1000340  i  o  else  if  (Event. type  ■  'wait')  then  do; 

/•  WAIT. BOX  MAS  SET  EARLIER  •/ 

1000360  1  1  LOS. VPS. TABLEIEVENT. INDEX). STATUS  •  ‘ BLOCKED' 1 

1000370  1  1  END! 

1000300  1  0  ELSE  IF  ( EVENT . TYPE  «  'FINISH')  THEN  DO; 

/•  WAIT- BOX  WAS  SET  EARLIER  «/ 

1000400  1  1  LOS. VPS. TABLEIEVENT. INDEX). STATUS  ■  'VOID'! 

1000410  1  1  ENO*. 

1000420  1  0  ELSE  DO;  /•  EVENT. TYPE  «  INIT  »/ 

1000430  1  1  CALL  INITER  (LOS. VPS); 

1000440  1  I  RETURN;  /•  00  HOT  SCHEOULE  •/ 

1000450  I  1  END; 

1000470  I  0  CALL  CHECH  MAIL  (LOS. VPS); 

1000480  I  0  CALL  SCHEDULER  (LOS. VPS); 


PAR00030 
PAR00040 
PAROOOSO 
OE 8000(0 
OEB00020 
OC 600030 
OEBOOOAQ 
OEBOOOSO 
DE 600060 
S Art 001 10 
SAH00120 
ST100010 
SAH00140 
SAH001S0 
SAH00160 
SAH00170 
SAHOOIRO 
SAH0Q190 
SAH00200 
SAH002I0 
SAH00220 
SAH0033 0 
SAN00240 
SAHOO2S0 
SAH00260 
SAH002T0 
SAH00280 
SAH00390 
SAH00300 
SAH00310 
SAH00320 
SAH00330 
SAH00340 
SAH003S0 
SAM00360 
SAH00370 
SAH00380 
SAH00390 
SAN00400 
SAH00410 
SAH00430 
SAH00430 
SAH00440 
SAH004S0 
SAN0O4S0 
SAH004T0 
SAH00480 
SAH00490 
SAHOOSOO 


1000500  1  0 


STM  •  ST1MER1 


PL/1  OPTIMIZING  COMPILER 


SAHER:  PROC  ( LOS, SVR, EVENT) 
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NUMBER  LEV  NT 


1 0005 10 

1 

0 

SVR.ST1ME0  •  SVR.STIMEO  ♦  STM  -  SVR.ST1ME; 

SAH00510 

1000520 

1 

0 

SVR.STIME  *  STM: 

SAH00520 

SAH00530 

1000540 

1 

0 

RETURN; 

SAH00540 

SAM005S0 

S AH 00560 

1000570 

1 

0 

MAILMAN:  PROC  (VPS.  PTAODR); 

SAH00570 

SAH00S80 

1000590 

2 

0 

OCL 

1  VPS.  2  TABLE  (  20), 

SAH00590 

80  BOSA  FIXED  BIN  <31 ) .  /•  AODR  (BOTTOM  DSA) 

•/vp  oooio 

BO  TOSA  FIXED  BIN  (3t).  /•  ADDR  (TOP  DSA) 

•/VP  00020 

BO  SAvESIZE  FIXED  BIN  (31),  /*  SIZE  OF  AREA  TO  BE  SAVED 

•/VP  00030 

BO  SAFE  PTR,  /•  ->  1ST  SAVBLK 

•/VP  00040 

BO  PROCNAME  CHAR  (7)  VAR,  /«  NAME  OF  TOP  LEVEL  PROC 

•/VP  00050 

80  STATUS  CHAR  (12)  VAR, 

VP  00060 

80  MAIL  PTR.  /*  CHAIN  OF  INCOMING  MAIL 

•/VP  00070 

80  MAIT, 

VP  00080 

61  BOX  FIXED  BIN,  /»  BOX  AWAITING  MAIL 

•/VP  00090 

81  MSG  PTR,  /♦  M$G  IN  WAIT. BOX 

•/VP  00100 

80  VPID  FIXED  BIN,  /*  INOEX  IN  THE  VPST 

•/VP  00110 

BO  LEVEL  FIXED  BIN,  /•  LEVEL 

•/VP  00120 

BO  VTIME  FIXED  BIN  (31) 

VP  00130 

SAH00S90 

1200010 

2 

0 

DCL 

PT_AODR  PTR: 

PFA00010 

PFA00020 

1200030 

2 

0 

OCL 

1  PF  ADDR  BASED  (PT.AODR), 

PFA00030 

2  VPID  FIXED  BIN, 

PFA00040 

2  80X10  FIXEO  BIN, 

PFA00050 

2  PTR  PTR; 

PFA00060 

1300010 

2 

0 

OCL 

BOXPT  PTR! 

80X00010 

60X00020 

1300030 

2 

0 

OCL 

1  BOX  BASED  (BOXPT), 

60X00030 

2  NEXT  PTR, 

60X00040 

2  ID  FIXED  BIN, 

60X00050 

2  LIST  PTRi 

60X00060 

1300620 

2 

0 

DCL 

VPID  FIXED  BIN; 

SAH00620 

SAH00630 

1400010 

2 

0 

OCL 

CONS  ENTRY  (PTR.  PTR)  RETURNS  (PTR); 

CONOOOIO 

SAH00650 

1400660 

2 

0 

VPID  •  PF.ADDR. VPID: 

SAH00660 

1400670 

2 

0 

IF  (VPS. TABLE(VPIO). STATUS  •  'VOID')  THEN  D0| 

SAH00670 

1400680 

2 

1 

PUT  SKIP  EDIT  (  'WARNING:  ILLEGAL  ADDRESS  LOS. LEVEL, 

SAH00660 

•/•.VPID)  (A.F(2)*A,F(2)}; 

S A HO 0690 

1400700 

2 

1 

FREE  PF  AODR; 

SAH00700 

/.  CANNOT  FREE  VARIABLE  FORMAT  MSO  •/ 

SAM0071 0 

1400720 

2 

1 

RETURN ; 

SAH00720 

1400730 

2 

1 

END;  • 

SAH00730 

SAH00740 

1400750 

2 

0 

BOXPT  •  VPS. TABLE(VPIO). MAIL) 

SAM00750 

PL/I  OPTIMIZING  COMP I Lf  R 


SAHER:  PROC  ( LOS, SVR, EVENT ) : 


I 
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NUMBER  IfV  NT 


R 


1400700 

2 

0 

00  WHILE  ( BOXPT  *.  NULL); 

SAH00760 

1400770 

2 

1 

IF  BOA. 10  •  PF.AOOR.BOX1D  THEN 

GOTO  FOUND; 

SAH00770 

1400760 

2 

t 

BOXPT  «  BOX. NEXT; 

SAM00780 

1400790 

2 

1 

ENO; 

SAM00790 

SAH00800 

/•  create  NEW  BOX  •/ 

SAHOOBIO 

1400820 

2 

0 

ALLOCATE  BOX; 

SAH00820 

1400830 

2 

0 

BOX. 10  *  PF  ADD R . BOX ID; 

SAH00S30 

1400840 

2 

0 

BOX. LIST  •  NULL; 

SAHOO04O 

1400850 

2 

0 

BOX. NEXT  •  VPS. TABLE(VPID).  MAIL; 

SAHOOBSO 

1400800 

2 

0 

VPS. TABLEIVPID) .MAIL  •  BOXPT; 

SAM00660 

SAH00870 

1400880 

2 

0 

FOUND; 

SAH00880 

BOX. LIST  •  CONS ( PF_ADDR . PTR ,  BOX. 

LIST); 

SAHOO090 

1400900 

2 

0 

free  pf.aodr: 

SAH00900 

SAH00910 

1400920 

2 

0 

ENO  MAILMAN; 

SAH00920 

SAH00930 

SAM00940 

1400950 

1 

0 

CHECK.MAU:  PROC  (VPSli 

5AH009SO 

SAH00960 

1400970 

2 

0 

OCL  I  VPS,  3  TABLE  |  20), 

SAH00970 

BO  BOSA  FI XEO  BIN  {31 ) , 

/•  A  DOR  (BOTTOM  OSA) 

•/VP  00010 

BO  TOSA  FIXED  BIN  (31), 

/•  ADOR  (TOP  OSA) 

•/VP  00020 

BO  SAvESIZE  FIXED  SIN  (31), 

/•  SIZE  OF  AREA  TO  BE  SAVED 

•/VP  00030 

BO  SAFE  PTR. 

/•  ~>  1ST  SaVBLN 

•/VP  00040 

BO  PROCNAME  CHAR  (7)  VAR. 

/•  NAME  OF  TOP  LEVEL  PROC 

•/VP  00050 

BO  STATUS  CHAR  (12)  VAR, 

VP  000 60 

BO  MAIL  PTR. 

/•  chain  of  incoming  mail 

•/VP  00070 

80  WAIT, 

vp  oooeo 

B 1  BOX  FIXED  BIN, 

/•  BOX  AWAITING  MAIL 

•/VP  00090 

8 1  MSG  PTR, 

/•  MSQ  IN  WAIT. BOX 

•/VP  00100 

60  VPID  FIXED  BIN. 

/•  INDEX  IN  THE  VPBT 

•/VP  00110 

80  LEVEL  FIXED  BIN, 

/•  LEVEL 

•/VP  00120 

BO  VTIME  FIXED  BIN  (31  ) 

VP  00130 

5 

SAH00970 

SAH00980 

1600010 

2 

0 

DCL  BOXPT  PTR; 

BOXOOOtO 
BOX 000 20 

1600030 

2 

0 

OCL  1  BOX  BASED  (BOXPT), 

BQX00030 

2  NEXT  PTR. 

BQX00040 

2  ID  FIXED  BIN, 

8QX0OO5O 

2  LIST  PTR; 

BQX00060 

1700010 

2 

0 

DCL  LISTPT  PTR; 

L1S0001 0 
US00020 

1700030 

2 

0 

OCL  1  LIST  BASED  (LISTPT), 

US00030 

2  NEXT  PTR, 

LIS00040 

2  THIS  PTR; 

US00050 

t 7010 10 

2 

0 

DCL  IV  FIXED  BIN; 

SAH0101 0 

-97' 


PL/ I  OPTIMIZING  COMPILER  SAHER:  PROC  ( LOS , SVR , EVENT ) ; 
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NUMBER  LEV  NT 


R 


1701020 

2 

0 

DCL 

PT  PTR; 

SAH01020 

SAH01030 

?Y01 040 

2 

0 

DO  IV  •  1  TO  20; 

SAH01040 

1701050 

2 

1 

IF  VPS • TABLE ( IV) . STATUS  *  'BLOCKED' 

THEN  DO; 

SAH01050 

1701060 

2 

2 

BOX  PT  *  VPS. TABLE(IV)  .MAIL; 

SAH01060 

1701070 

2 

2 

DO  WHILE  (BOXPT  “■  NULL); 

SAH01070 

1701080 

2 

3 

IF  BOX. 10  *  VPS . TABLE ( IV) 

■WAIT. BOX  THEN  001 

SAH01080 

1701090 

2 

4 

IF  BOX. LIST  *»  NULL  THEN  DO; 

S AMO 1090 

1701 100 

2 

5 

LISTPT  »  BOX. LIST; 

SAH01100 

1701 1  10 

2 

5 

PT  •  LIST. THIS; 

SAMOII 10 

1701 1 20 

2 

5 

BOX. LIST  •  LIST. NEXT; 

SAH01 120 

I70M30 

2 

5 

FREE  LIST; 

SAMOII 30 

1701 1 40 

2 

5 

VPS. TABLE(IV). WAIT. 

MSG 

•  PT) 

SAH01140 

1701 150 

2 

5 

VPS. TABLE(tV). STATUS  • 

'RUNNABLE1! 

SAH01150 

1701160 

2 

5 

GOTO  NEXT_VP; 

SAH01160 

17011 70 

2 

5 

END; 

SAH01170 

1701180 

2 

4 

END; 

SAH01180 

1701 190 

2 

3 

BOXPT  «  BOX. NEXT; 

SAH0I190 

1701200 

2 

3 

END; 

SAH01200 

1701210 

2 

2 

END; 

SAMO 1210 

1701220 

2 

1 

NEXT_VP:  END; 

SAH0I220 

SAHO1230 

1701240 

2 

0 

END 

CHECK_MAILJ 

SAH0I240 

SAH01250 

SAH01260 

1701270 

1 

0 

SCHEDULER:  PROC  (VPS); 

SAMO 1270 

SAMO 1 200 

17P1290 

2 

0 

DCL 

1  VPS.  2  TABLE  (  20). 

SAH01290 

80  BDSA  FIXED  BIN  (31), 

/• 

A  DOR  (BOTTOM  DSA) 

•/VP  0001 0 

80  TOSA  FIXED  BIN  (31), 

/• 

A DOR  (TOP  DSA) 

•/VP  00020 

80  SAVESI2E  FIXED  BIN  (31), 

/• 

SITE  OF  AREA  TO  BE 

SAVED 

•/VP  00030 

80  SAFE  PTR. 

/• 

->  1ST  SAVBLK 

•/VP  00040 

80  PROCNAME  CHAR  (7)  VAR, 

/• 

NAME  OF  TOP  LEVEL 

PROC 

•/VP  00050 

80  STATUS  CHAR  (12)  VAR, 

VP  00080 

80  MAIL  PTR, 

/• 

CHAIN  OF  INCOMING  MAIL 

•/VP  00070 

80  WAIT, 

VP  00080 

81  BOX  FIXED  BIN, 

/• 

BOX  awaiting  mail 

•/VP  00090 

B1  MSG  PTR, 

/• 

MSG  IN  WAIT. BOX 

•/VP  00100 

80  VPID  FIXED  BIN, 

/• 

INDEX  IN  THE  VPST 

•/VP  00110 

80  LEVEL  F IXEO  BIN, 

/• 

LEVEL 

•/VP  00120 

80  VTIME  FIXED  BIN  (31 ) 

VP  00130 

j 

SAH01290 

SAH01 300 

1601310 

2 

0 

DCL 

(VTM.VTMO)  FIXED  BIN  (31); 

SAH01310 

1801320 

2 

0 

DCL 

YOUNGEST  FIXED  BIN; 

SAH01320 

1801330 

2 

0 

OCL 

IV  FIXED  BIN; 

SAH01330 

SAH01340 

1001350 

2 

0 

YOUNGEST  *  0; 

SAH01350 

1B01360 

2 

0 

VTMO  ■  2147483647; 

SAH01360 

PL/l  OPTIMIZING  COMPILER  SAHER:  PROC  ( LOS , SVR , EVENT ) ; 
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NUMBER  LEV  NT 


I 

VO 

00 

I 


1801300 

1801390 

1801410 
1801420 
1  B0 14 30 
1801440 
1801 450 
1801400 
1801470 

1Q0M90 

1801500 

1801510 

1801530 

1801540 

1801550 

1801570 


1801600 

1801630 


2000010 


2001640 

2100010 

2100020 

2100030 


20  DO  IV  »  1  TQ  20; 

2  1  IF  (VPS.TA8LE< IV) .STATUS  -  ‘ RUNNABLE  * )  { 

(VPS. TABLE! IV) .STATUS  «  'NASCENT1)  THEN  DO; 

2  2  VTM  -  VPS  .TABLE(1V).VTIM£; 

22  IF  VTM  <  VTMO  THEN  DO; 

2  3  YOUNGEST  «  JV; 

2  3  VTMO  -  VTM; 

2  3  END ; 

2  2  ENO; 

2  1  END ; 

20  IF  (DEBUG. SCHEDULERS)  THEN  00; 

2  1  PUT  SKIP  EDIT  <«  SCHEDULER:  YOUNGEST  «  1 , YOUNGEST )  (A.F(3))J 

2  1  end; 

20  IF  (YOUNGEST  >  0)  THEN  DO; 

2  1  CALL  VPER  (VPS. TA0tE( YOUNGEST) ) ; 

2  1  END ; 

2  0  ENO  SCHEDULER; 


1  0  INITER:  PROC  (VPS); 

2  0  OCl  1  VPS,  2  TABLE  (  20), 

80  BDSA  FIXED  BIN  (31) , 

80  TDSA  FIXED  BIN  (31), 

80  SAVESIZE  FlXEQ  BIN  (31), 
80  SAFE  PTR, 

80  PROCNAMg  CHAR  (7)  VAR, 

80  STATUS  CHAR  (12)  VAR, 

80  MAIL  PTR, 

80  WAIT, 

81  BOX  FtXEO  BIN, 

81  MSG  PTR, 

80  VPIO  FIXEO  8 IN , 

BO  LEVEL  FIXED  BIN, 

80  VUME  F  IXEO  BIN  (31  ) 

2  0  DCL  t  PARAMS  EXTERNAL  STATIC, 

2  THRU.RATE  FIXED  BIN  (31,7), 

2  DELAY _G8_GC  FIXEO  BIN  (31), 

2  DELAY _GC_G8  FIXED  BIN  (31), 

2  TERMINALS  FIXEO  8IN; 

2  0  DCL  IV  FIXEO  BIN; 

2  0  DCL  MSGLEN  FIXED  BIN; 

2  0  DCL  MSGPT  PTR; 

2  0  DCL  1  MSG  BASED  (MSGPT), 


/•  A DDR  (BOTTOM  DSA) 

/•  AOOR  (TOP  DSA) 

/•  SI2E  OF  AREA  TO  BE  SAVEO 

/*  ->  1ST  SAVBLK 

/•  NAME  OF  TOP  level  PROC 

/•  CHAIN  OF  INCOMING  MAIL 

/•  BOX  ANAITING  MAIL 
/•  MSG  IN  WAIT. BOX 
/*  INDEX  IN  THE  VPST 
/•  LEVEL 


SAH01370 
SAH013B0  1 
SAH01390 
SAH0J400 
S AHO 1410 
SAH01420 
SAH01430 
S AHO I 440 
SAH01450 
S AHO 1460 
SAH01470 
SAH01480 
SAH01490 
SAH01500 
SAH01S10 
SAH01520 
SAH01530 
SAH01540 
SAH01550 
S AHO I 560 
SAH01570 
SAH015B0 
SAH01590 
SAM01600 
SAH01610 
SAH01620  t 
•/VP  00010 
•/VP  00020 
•/VP  00030 
•/VP  00040 
•/VP  00050 
VP  00060 
♦/VP  00070 
VP  00080 
•/VP  00090 
•/VP  00100 
•/VP  00110 
•/VP  00120 
VP  00130 
SAH01620 
PAR00010 
PAR00020 
PAR00030 
PAROOU40 
PAROOOSO 
SAH01640 
MSG0O010 
MSG00020 
MSG00030 


t 


Pl/I  OPTIMIZING  COMPILER 


SAHER:  PROC  (LOS.SVR, EVENT)  } 
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NUMBER 

LEV 

NT 

2  LEN  FIXEO  BIN, 

2  STR  CHAR  (MSGLEN 

2200010 

2 

0 

DCL 

VPS T ART  ENTRY  ( /*  VP 

2201690 

2 

0 

MSGLEN  »  16; 

2201690 

2 

0 

DO  IV  i  1  TO  PARAMS. 

2201700 

2 

1 

ALLOCATE  MSG j 

2201710 

2 

1 

MSG. STR  ■  ’SET  UP 

2201720 

2 

1 

CALL  VPSTART  (VPS 

2201730 

2 

1 

END; 

2201750 

2 

0 

ENO 

INI TERJ 

2201 780 

1 

0 

END 

SAHER; 

R 


MSG00040 
MSG00050 
VPSOOOIO 
SAHOI 670 
SAHO 1680 
SAH01690 
SAH01700 
SAHO 1710 
SAH01720 
SAHO 1 730 
SAHO 1740 
SAH01750 
SAHO 1760 
SAHO 1770 
SAHO 1780 


I 

VO 

VO 

I 


100- 


PL/I  OPTIMIZING  COMPILER 


SEND!  PROC  (LEVEL. VPIO.BOXIO. TYPE, LEN. MPT)) 


page  a 


SOURCE  LISTING 

NUMBER  LEV  NT 


10  0  SEND:  PROC  (LEVEL. VPID, 80X10, TYPE, LEN. MPT);  SEN00010 

SEN00020 

30  1  0  OCL  (LEVEL. VPID. BOXIO, LEN)  FIXED  BINJ  S EN00030 

40  1  0  DCL  (TYPE)  CHAR(a)  VAR;  SEN00040 

SO  1  0  OCL  (MPT.PT)  PTR;  SENOOOSO 

x include 

100010  1  0  OCL  PT  A DDR  PTR;  PFA00010 

PFA00020 

100030  1  0  DCL  1  PF.ADDR  BASED  (PT_AOOR),  PFA00030 

2  VPID  FIXED  BIN.  PFA00040 

2  BOX ID  FIXED  BIN,  PFA00050 

2  PTR  PTR;  PFA00060 

PFA00070 

. . SEN00060 

X INCLuOE  PFS; •••*•* 

300010  1  0  OCL  PT  S  PTR;  PFS00010 

PFS00020 

300030  1  0  OCL  1  PF  S  BASED  (PT_S).  PFS00030 

2  LEN  FIXED  BIN.  PFS00040 

2  PTR  PTR;  PFS00050 

PFS00060 

. SEN00070 

X  INCLUDE  PFMSG ;aaaaaaaaaaaaaaaaaa4Aaaaaa4aaaaAaA4aa4AAa4444aa4»aa*4 *«»»SEN00080 

400010  1  0  DCL  PT  MSG  PTR;  PFMOOOIO 

PFM00020 

400030  1  0  DCL  1  PF  MSG  BASED  <PT_MSG),  PFM00030 

2  LEN  FIXED  BIN.  PFM00040 

2  TYPE  CHAR  (12)  VAR,  PFM00050 

2  PTR  PTR;  PFM00060 

PFMOOOIO 

........a .  SENOOOSO 

X INCLUOE  PFIEVEL; aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa ••••••••♦•••••••SENOOOSO 

500010  1  0  OCL  PT  LEVEL  PTR;  PFLOOOIO 

PFL00020 

500030  1  0  DCL  I  PF  LEVEL  BASED  (PT_LEVEL),  PFL00030 

2  LEVEL  FIXED  BIN.  PFL00040 

2  PTR  PTR;  PFLOOOSO 

PFL00060 

.•.....••a . SEN00090 

X INCLUOE  VPx ; ••••SEN00100 
600010  1  0  DCL  TMISVP  PTR  EXTERNAL  STATIC;  /•  ->  CURRENT  VP,  SET  BY  VPER  4/VPX00010 

VPX00020 

600030  1  0  OCL  1  VP  BASED  (THISVP),  XINCLUDE  . . . ♦»••••»• ...a •••••••••••••••VPX00030 

BO  BOSA  FIXED  BIN  (31),  /•  ADOR  (BOTTOM  DSA)  »/VP  00010 

80  T DSA  FIXED  BIN  (31).  /•  A DDR  (TOP  DSA)  »/VP  00020 

80  SAVESIZE  FIXED  BIN  (31),  /•  SIZE  OF  AREA  TO  BE  SAVED  */VP  00030 


TOT 


PL/ I  OPTIMIZING  COMPILER 


SEND:  PROC  (LEVEL, VPID.BOXID. TYPE. LEM. MPT); 


PAGE  | 


NUMBER  CEP  NT 


I 


/*  -»  1ST  SAVBLK  */VP  00040 

/•  NAME  OP  TOP  LEVEL  PROC  »/VP  00050 

VP  00060 

/•  CHAIN  OF  INCOMING  MAIL  »/VP  00070 

VP  00080 

/•  BOX  AWAITING  MAIL  »/VP  00090 

/•  MSG  IN  WAIT. BOX  »/VP  00100 

/*  INDEX  IN  THE  VPST  »/V P  00110 

/»  LEVEL  ./VP  00120 

VP  00130 

•  VPX00030 


900010 

1 

0 

DCL  OEVENT  ENTRY  (FIXED  BIN,  FIXED  BIN  (it),  CHARI*)  VAR. 

VPX00040 
SEN00100 
S6N001 10 

QEVOO010 

1000010 

1 

0 

FIXED  BIN  (31),  PTR); 

DCL  SIIMER  ENTRY  RETURNS  (FIXED  BIN  (3t))l 

QCV0O02O 
SEN0O  f  20 

ST  1 00010 

1100010 

1 

0 

DCL  SVCER  ENTRY  (FIXEO  BIN,  PTR){ 

SEN00130 

SVC00010 

1100150 

1 

0 

DCL  SYNC  ENTRY; 

SEN00140 

SEN00150 

1100170 

1 

0 

IF  (LEVEL  »  VP. LEVEL)  •  (VPIO  •  0)  THEN  DO; 

SCN00160 

SEN00170 

1 100180 

1 

\ 

CALL  SYNC; 

SEN001B0 

1 100190 

1 

1 

CALL  SVCER  (80X10. MPT); 

SEN00190 

1100500 

1 

1 

RETURN; 

SEN00200 

1100310 

1 

1 

ENO; 

SENO02I0 

1100240 

1 

0 

allocate  PF.ADDR: 

SEN00220 

SEN00230 

SEN00240 

1100250 

1 

0 

PF  ADDR.BOXID  «  BOXIO; 

SEN00250 

1100260 

1 

0 

PE  ADD*. VPIO  »  VPIO; 

SEN0026D 

1100270 

1 

0 

Pf^M)OR.PTR  •  MPT; 

S6N00270 

1100290 

1 

0 

IF  (LEVEL  *  VP. LEVEL)  THEN  00; 

SEN00280 

SEN00290 

1100300 

1 

1 

CALL  OEVENT  ( VP.  LEVEL«3+3, STIMER,  'LOGMSO1 ,0,PT_ADOR) I 

S6N00300 

1 100310 

1 

1 

ENO; 

SEN0031 0 

1100330 

1 

0 

ELSE  DO;  /*  LEVEL  *»  VP. LEVEL  «/ 

SEN00320 

SEN00330 

1100340 

1 

t 

PT  •  PT  AOOR  ; 

SEN00340 

1 100350 

1 

1 

If  (TYPE  •  '  S')  THEN  DO; 

SEN003S0 

1 100360 

1 

2 

ALLOCATE  PF_S; 

SEN00300 

1100370 

1 

2 

PF_S.LEN  »  LEN; 

SEN00370 

1100380 

1 

2 

PF  S.PTR  -  PT_ADDR; 

SEN00300 

1100390 

1 

2 

PT  •  PT_S; 

SENOO3B0 

80  SAFE  PTR, 

80  PROCNAME  CHAR  (7>  VAR, 
80  S'ATUS  CHAR  (12)  VAR, 
BO  MAIL  PTR, 

80  WAIT, 

81  BOX  FIXED  BIN, 

81  MSG  PTR, 

80  VPIO  FIXED  BIN, 

80  LEVEL  FIXED  BIN, 

80  VT1ME  FIXED  BIN  (31) 
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NUMBER  LEV  NT 


1100400 

1 

2 

END; 

1100410 

V 

1 

ALLOCATE  PF.MSG; 

1100420 

1 

1 

PF  MSG -LEN  •  LEN+2; 

1 100430 

1 

1 

PF  MSG- TYPE  *  TYPE! 

1100440 

1 

1 

PF  MSG.PTR  •  PT) 

1 100450 

1 

1 

ALLOCATE  PF.LEVEL! 

1100460 

1 

1 

PF  LEVEL. LEVEL  •  LEVEL! 

1 100470 

11 004 BO 

1 

1 

1 

1 

PF  LEVEL. PTR  •  PT.MSGl 

CALL  QEVENT  ( VP. LEV£L*3*1 .STJMER. ‘MSGOUT ' .0. Pt .LEVEL) » 

1 100490 

1 

1 

end; 

1100510 

1 

0 

END  SEND; 

SEN00400 

SEN004I0 

SEN00420 

SEN00430 

SEN00440 

SEN00450 

SEN00460 

SEN00470 

SEN004B0 

SEN00490 

SEN00500 

SEN00510 


I 
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SOURCE  LISTING 


NUMBER  LEV  NT 


n 


i 

M 

O 

OJ 

I 


10 

30 


100010 

100020 

100080 


400090 

400100 


500110 


o  Shell:  proc  options  (main); 

4  0  DCL  PL1XOPT  CHAR(40)  VAR  EXTERNAL  STATIC 

l NIT  ( » ISASIZE(-50K ) * ) ; 

1  0  0CL  S0UEUE  <0:  6)  PTR  EXTERNAL  STATIC; 

1  0  DCL  EOUEUE  (0:  6)  PTR  EXTERNAL  STATIC; 

1  0  DCL  1  LOSES  (0:  1)  STATIC, 

70  LEVEL  FIXED  BIN, 

70  SRQ , 

71  SIZE  FIXED  BIN. 

71  MAX  FIXED  BIN, 

70  D68, 

71  SIZE  FIXED  BIN, 

71  MAX  FIXED  BIN, 

70  VPS, 

71  TABLE  (  20), 

60  BOSA  FIXEO  BIN  (31),  /*  A  DDR  (BOTTOM  DSA) 

80  T DSA  FIXEO  BIN  (31),  /*  A DDR  (TOP  DSA) 

80  SAVESIZE  FIXED  BIN  (31),  /•  SIZE  OF  AREA  TO  BE  SAVED 

80  SAFE  PTR,  /•  ->  1ST  SAVBLK 

80  PROCNAME  CHAR  (7)  VAR,  /•  NAME  OF  TOP  LEVEL  PROC 
80  STATUS  CHAR  (12)  VAR, 

80  MAIL  PTR.  /•  CHAIN  OF  INCOMING  MAIL 

80  MAIT, 

01  BOX  FIXED  BIN,  /•  BOX  AMA1TING  MAIL 

81  MSG  PTR.  /•  MSG  IN  WAIT. BOX 

BO  VPIO  FIXED  BIN,  /•  INDEX  IN  THE  VPST 

BO  LEVEL  FIXEO  BIN,  /•  LEVEL 

BO  VTIME  FIXEO  BIN  (31) 

1  0  DCL  (EPT.SPT)  PTR; 

1  0  DCL  1  EVENT  BASED  (  EPT) , 

70  NEXT  PTR.  /•  NEXT  EVENT 

70  STIME  FIXEO  BIN  (31), 

70  TYPE  CHAR  (12)  VAR, 

70  INDEX  FIXED  BIN  (31), 

70  P7R  PTR 

1  0  OCL *  1  SVR  BASED  (SPT), 

70  NEXT  PTR, 

70  STIME  FIXED  BIN  (31), 

70  STIMEQ  FIXEO  BIN  (31),  /•  ACCUMULATED  STIME 

70  RTIME  FIXED  BIN  (31), 

70  RRATE  FIXEO  BIN  (15,7),  /•  REAL  CPU  TICK  RATE 

70  ID  FIXED  BIN 


SHE00010 
SHE 00020 
SHE00030 
SHE00040 
SHE00050 
QS  00010  1 

qs  00020  i 

SHE00080  1 

LOSOOOIO 
LOS00020 
L0S00030 
LGS00040 
LOS00050 
L0S00060 
LOS00070 
LOSOOOBO 
LOS00090  1 

•/VP  00010 
•/VP  00020 
•/VP  00030 
•/VP  00040 
•/VP  00050 
VP  00060 
•/VP  00070 
VP  00000 
•/VP  00090 
•/VP  00100 
•/VP  00110 
•/VP  00120 
VP  00130 
SHEOOOBO 
SHE00090 
SHE 001 00 
•/  EVE0001 0 
EVE 00020 
EVE00030 
EVE00040 
EVE00050 
SHE00100 
SHEOOI 10 
SVR00010 
SVR 00020 
•/SVR00030 
SVR00040 
•/SVR00050 
SVR00060 


i 

I 

i 


PL/l  OPTIMIZING  COMPILE* 


SHELL!  PROC  OPTIONS  (MAIN) 


NUMBER  LEV  NT 


SHE001 10 

600120 

1 

0 

DCL  (1, LEVEL. EARLIEST)  FIXED  BIN; 

SHE 001 20 

600130 

1 

0 

DCL  ( STM, STMO )  FIXED  BIN  (31); 

SHE 00 130 

600140 

1 

0 

OCl  oat  CHARI  6); 

SHE00I40 

600150 

1 

0 

DCL  MM  CHAR<9>; 

SHE00150 

600160 

1 

0 

DCL  (YR.MO.OY .HA, MN  )  CMAR<2); 

SHE00I60 

600170 

1 

0 

OCL  STATS  FILE  OUTPUT  EXTERNAL; 

SHEOOf  70 

700010 

1 

0 

OCL  1  DEBUG  EXTERNAL  STATIC, 

OEBOOOI 0 

2  SLEEPS  BITE  1 )  IN I T  ('O'B). 

0EB00020 

2  SAHERS  BIT( 1 )  INI T  ( 'O'B). 

DEB00030 

2  SCHEDULERS  BIT(I)  INIT  ('O'B), 

DEB00040 

2  SHELLS  B1 T ( 1 )  INIT  ('O'B), 

DEB00050 

2  AAHERS  SIT(I)  INIT  ('O'B); 

DEB00060 

SHE00190 

700200 

1 

0 

DCL  (ADOR, NULL. MAX, MOD, DATE, TIME. SU8STR)  BUlLTIN) 

SHE 00200 

700210 

1 

0 

OCL  (AODO.DEBUGR)  ENTRY; 

SHE00210 

800010 

1 

0 

DCL  RT1MER  ENTRY  RETURNS  (FIXED  BIN  (31)); 

RT 100010 

9000 1 0 

1 

0 

OCL  OEVENT  ENTRY  (FIXEO  BIN.  FIXEO  BIN  (It),  CHAR( •) 

VAR. 

0EV00010 

FIXED  BIN  (31),  PTR ) ; 

OEV00020 

900210 

1 

0 

OCL  (GBER ,GCER , SAHE R , AAHER )  ENTRY; 

SHE00240 

SHE002S0 

SHE00260 

900270 

I 

0 

OPEN  FILE  (STATS)  TITLE  ( 'STATS'  II 

SHE00270 

900280 

1 

0 

OAT  .  DATE; 

SHE002B0 

900290 

1 

0 

TIM  .  time; 

SHE 00290 

900300 

1 

0 

YR  «  SUBS TR( DAT ,1,2); 

SHE 00300 

9 003 tO 

1 

0 

MO  .  SUBSTRIDAI ,3,2); 

SHE 00310 

900320 

1 

0 

OY  .  SUBSTRfDAT .5.2); 

SHE00320 

900330 

1 

0 

HR  .  SUBSTR(TIM,1,2); 

SHE00330 

900310 

1 

0 

MN  .  SUBS  TR  (  TIM  ,  3 ,2)  ; 

SHE00340 

900350 

1 

0 

PUT  FILE  (STATS)  SKIP  EOIT  ('  •••  ' , YR , • /• ,M0, * / 1 

,0V.' 

SHE 00 350 

HR,  '  !  '  ,MN) 

SHE00360 

(A,A(2),A,A(2),A.A(2),A,A(2),A,A(2)  ); 

SHE00370 

900380 

1 

0 

PUT  FILE  (STATS)  SKIP  EDIT  ('  •••  PARAMETERS!  ') 

(A); 

SHE 00380 

900390 

1 

0 

PUT  FILE  (STATS)  SKIP  (2)| 

SHE 00390 

900400 

1 

0 

CALL  DEBUGR; 

SHE00400 

900410 

1 

0 

CALL  SET  LOS: 

SHE 004 10 

900420 

1 

0 

CALL  SET_0; 

SHE 00420 

900430 

1 

0 

CALL  SET  P; 

SHE00430 

900440 

1 

0 

PUT  SKIP  (3)  LIST  ('  START  SIMULA T ION. ..') ; 

SHE00440 

900450 

1 

0 

PUT  SKIP  (3); 

SHE00450 

900460 

1 

0 

PUT  FILE  (STATS)  SKIP  (3)  EDIT  ('  •••  SIMULATION; 

M  (A) I 

SHE 00460 

900470 

1 

0 

PUT  FILE  (STATS)  SKIP  (2)| 

SHE00470 

SHE 00480 

900490 

1 

0 

LOOP: 

SHE 00490 

SHE00500 

EARLIEST  •  -1; 

SHE00S10 

900920 

1 

0 

STMO  -  21 47483647; 

SHE00520 

SHE00530 
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NUMBER  LEV  NT 


900540  1 
900550  X 
900560  1 
900570  1 
900500  \ 


900610  1 


900660 

900670 

900680 

900690 

900710 

900720 

900730 

900740 

900750 

900760 

900780 
900790 
9 00800 
900810 
900020 
900030 
900040 
900050 
900060 
900070 
900080 
900090 

900910 

900920 

900930 

900940 

900950 

900960 


DO  1  >  0  TO  6; 

IF  (EOUEUE(I)  “*  NULL)  THEN  DOj 
EPT  •  eoueue(I); 

SPT  «  SQUEUE(I);  „  „ 

STM  -  MAX  (EVENT. STIME. SVR. STIME) J 
IF  (STM  <  STMO)  THEN  DO: 

EARLIEST  •  IS 
STMO  «  STM; 

END; 

END; 

END; 

,F  sliest  .  *  (Earliest)  <*.«*». 

END; 

IE  (EARLIEST  *  -«»  THEN  GOTO  EAITl 

EPT  •  EQUEUE (EARLIEST) ; 

SPT  •  SOUEUE (EARLIEST); 

EQUEUE ( E A RL IEST )  -  EVENT. NEAT; 

LEVEL  -  ( EARLIEST- 1 )/3; 

SVR.ST1ME  *  STMO; 

SVR.RTIME  »  RTIMER; 

IE  (EARLIEST  .  0)  THEN  00; 

CALL  GBER  (SVR, EVENT); 

ELSE  IE  (MOOIEARLIEST  «3)  ■  I)  THEN  00;  /»  OC  •/ 

CALL  GCER  ( LOSES! LEVEL) . SVR. EVENT ) ; 

ELSE  IE  (MOOIEARLIEST. 3)  *  3)  THEN  OO;  /»  AAN  •/ 

CALL  AAHER  ( LOSES( LEVEL) , SVR. EVENT); 

END; 

ELSE  DO;  /•  SAH  •/ 

CALL  SAHER  (  LOSES(LEVEL) .SVR, EVENT); 

ENO; 

”E(E*Rl7eST  *.  0)  A  (MOO (EARL IEST, 3)  '•  t>  THEN  OOI 
SOUEUE (EARLIEST)  ■  SVR. NEAT; 

SVR. NEAT  *  NULL!  .... 

CALL  A 000  (SOUEUE(EARIIEST).SPT); 

ENO; 

GOTO  LOOP; 


PUT  FILE  (STATS)  SKIP  (3)  EDIT  (•  •••  STATISTICS! * )  (*>l 


SHE 00540  I 

SHE00550 

SHE00S60 

SHE 00570 

SHE 00580 

SHE 00590 

SHE00600 

5HE0061 0 

SHE 00630 

SHE 00630 

SHE 00640 

SHE00650 

SHE00660 

SHE00670 

SHE00680 

SHE 00690 

5HE00700 

SHE 00710 

SHE00730 

SHE00730 

SHE 00740 

SHE007S0 

SHE 00760 

SHE00770 

SHEQ0760 

SHE00T90 

SHE00800 

SHE 006 10 

SHE00630 

SHE00830 

SHE 00640 

SHE00850 

SHE 00860 

SHE 00870 

SHE 00660 

SHE 00890 

SHE00900 

SHE0091 0 

SHE00920 

SHE00930 

SHE00940 

SHE00950 

SHE00960 

SHE 00970 

SHE 00980 

SHE 00990 

SHE01000 

SHEOtOlO 

SHE01030 


901 
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SHELLI  PROC  OPTIONS  (MAIN) 


MM  • 


NUMBER  LEV  NT 


901520  2  0 

901530  2  0 

901540  2  0 


CALL  NEW  SVR(I, I.S0UEUE(0))i 
CALL  QEVENT  (3 . 0, 1  INI T • ,0 .NULL) I 
RETURN; 

/•  END  •/ 


901 580 


2  0  NEw.SVR:  PROC  (RRATE, ID. WHERE); 


901600 

901610 

901620 

901630 

901640 


3  0  DCL  RRATE  FIXED  BIN  (1S,7)i 

3  0  DCL  ID  FIXED  BIN; 

3  0  DCL  WHERE  ptr: 

3  0  DCL  SVRPT  PTR : 

3  0  DCL  1  SVR  BASED  (SVRPT). 

70  NEXT  PTR, 

70  STIME  FIXED  BIN  (31). 

70  STIMEO  FIXED  BIN  (31). 
70  RTIME  FIXED  BIN  (31). 

70  RRATE  FIXED  BIN  (15,7), 
70  ID  FIXED  BIN 


/•  ACCUMULATED  STIME 
/•  REAL  CPU  TICK  RATE 


1001660 

3 

0 

ALLOCATE  SVR; 

1001670 

3 

0 

SVR. STIME  *  0: 

1001680 

3 

0 

SVR. STIMEO  *  0; 

1001690 

3 

0 

SVR. RRATE  •  RRATE; 

1001700 

3 

0 

SVR. ID  «  ID: 

1001710 

3 

0 

SVR. NEXT  ■  WHERE! 

1001720 

3 

0 

WHERE  «  SVRPT; 

1001740 

3 

0 

end 

NEW.SVR; 

1001770 

2 

0 

m 

z 

o 

set_q: 

1001  BOO 

1 

0 

SET_P:  PROC; 

1100010 

2 

0 

DCL 

1  PARAMS  EXTERNAL 

4  I  nnu  nm  c  r  insu  w*  1-  ’  i  ■  f  r 

2  DELAY  GB.GC  FIXED  BIN  (31). 
2  DELAY_GC_GB  FIXED  BIN  (31). 
2  TERMINALS  FIXED  BIN; 


1101840 

2 

0 

PUT 

SKIP 

LIST  ('  THRU.RATE, GB.GC, GC.GB. TERMINALS*  *)l 

1101650 

2 

0 

GET 

LIST 

( PARAM  S • THRU .RATE , PARAMS .DELAY  .GB.GC . 

PARAMS . DELAY_GC_GB , PARAMS . TERMINALS) I 

1101B70 

2 

0 

PUT 

FILE 

(STATS)  SKIP  EDIT  (*  ')  (A); 

1101880 

2 

0 

PUT 

FILE 

(STATS)  DATA  (PARAMS)I 

SHE0IS2O 
SHE0I53O 
SHE01540 
SHE0IS50 
SHE0I560 
SHE0IS70 
SHE015B0 
SHE01 590 
SHE01609 
SHE01610 
SHEO1620 
SHE01630 
SHE01640 
SVR0OO1O 
SYR00030 
•/SVROO03O 
SVR00040 
•/SVR00050 
SVR00060 
SNE01640 
SHE0I650 
SHE01660 
SHE01670 
SHE01680 
SHEO 1690 
SHE01700 
SHE01710 
SHE01720 
SHEO 1 730 
SHEO 1740 
SHEO 1750 
SHEO I 760 
SHEO 1770 
SHE01780 
SHEO  1 790 
SHEO 1800 
SHE01810 
PAR00010 
PAR00020 
PAR00030 
PAR00040 
PAR00050 
SHEO 1830 
SHEO I 840 
SHE01B50 
SHEO I860 
SHE0I87C- 
SHE01880 
SHEO 1890 


I 
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paoe  r 

pl/i  opt imiz img  compiler  shell,  proc  options  (main). 

II 


NUMBER  LEV  NT 


1101900 


2  0  END  SET.PJ 


1101930  1  0  REPORT:  PROC{ 


1101950 

1101960 


1201970 
1201 900 


1202000 


1202020 

1202030 


1202080 
1202090 
1202100 
12021 10 
1202120 
1202130 
1202140 
1202150 
1202160 

1202180 

1202200 

1202220 


2  0  OCL  SVRPT  PTRi 

2  0  OCL  1  SVR  BASED  (SVRPT), 

70  NEXT  PTR, 

70  STIME  FIXED  BIN  131), 

70  STIMEQ  FfXCO  BIN  <3t). 

70  RTXME  FIXEO  BIN  (31). 

70  RRATE  FIXED  BIN  (15.7), 

70  ZD  FIXED  BIN 

5  °0  DClf  TITLEt3)XCHAR(3  )  STATIC  INIT  (*  GC ' . ' AAH* ♦ *SAH* ) 1 


/•  ACCUMULATED  $TIME 
/•  REAL  CPU  TICK  RATE 


2  0 


DO  L  ■  0  TO 


i; 


1 

2 
2 
2 
3 
3 
3 
3 
2 


PUT  PILE  (STATS)  SKIP  E01T  ('  LEVEL  M.M  *)  «*•'«>•*>* 
PUT  FILE  (STATS)  SKIP  EDIT  (*  , 

•  SRQ.MAX  «» ,LOSES(L).SRO.MAX, 

•  DBB.MAX  «' ,LOSES(L).OBB.MAX) 

(A.A.PO  1  ).A.F(11  ()! 

00  PUT  PILE  (STATS)  SKIP  EDIT  (* 

SVRPT  -  SQUEUE(L*3+!)i 

00  Si^IW  (S?Jis!  SXJa  (SVR.IO,SVB.STIW.S»«'*TI«»>l 
SVRPT  .  SVR. NEAT. 

ENOt 

END; 


\TITLE(I>.,I‘ >  (A.AO).AU 


end;  /»  L  •/ 

END  REPORT; 


a  ( 
a  o 
i  o  end  shell; 


SHE01900 
SHE0I9.0 
SHEOI930 
5HEOI930 
SHE01940 
SHE019S0 
SHE 01 960 
SVR0001 0 
SVR00020 
•/SVR00030 
SVR00040 
•/SVR00050 
SVR00060 
SHE 01 960 
SHE01970 
SHEOI9BO 
SHE01990 
SHE02000 
SHE0201 0 
SHE02020 
SHE02030 
SHE 02040 
SHE 02090 
SHE  02060 
SHE 02070 
SHE 02080 
SHE02090 
SHE02IOO 
SHE02110 
SHE02120 
SHE021 30 
SHE02140 
SHE02190 
SHE02160 
SHE02I70 
SHE02180 
SHE02190 
SHE02200 
SHEO22I0 

SHEoaaao 
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SOURCE  LISTING 


NUMBER  LEV  NT 


10 


0  SLEEP:  PROC; 


30  1  0  DCL  (THIS, NEXT)  PTR ; 

40  1  0  DCL  (NULL. ADOR. MIN)  BUILT  IN; 

SO  1  0  DCL  (NSIZE.OSIZE.NEW  NBLK , OLO_NBLK,DI FF_N0LK )  FIXED  BIN  (31); 

60  1  0  DCL  SAVE  AOOR  FIXED  IlN  (31); 


100010  1  0  DCL  THISVP  PTR  EXTERNAL  STATIC; 


100030 


O 

VD 

1 


OCL  t  VP  BASED  (THISVP), 

80  BOSA  FIXED  BIN  (31 ) , 

80  TDSA  FIXED  BIN  (31  ) , 

80  SAVESIZE  FIXED  BIN  (31), 
80  SAFE  PTR, 

80  PROCNAME  CHAR  (7)  VAR, 

80  STATUS  CHAR  (12)  VAR, 

80  MAIL  PTR, 

80  WAIT, 

01  BOX  FIXED  BIN, 

81  MSG  PTR, 

80  VPID  FIXED  BIN, 

80  LEVEL  FIXEO  BIN, 

80  VTIME  FIXEO  BIN  (31  ) 


400070  1  0  DCL  NEMSAVBLK  PTR; 


400090 


S00010 


600010 


1  0  OCL 


1  SAVBLK  BASED  (NEWSAVBLK), 
2  NEXT  PTR. 

2  ADOR  FIXED  BIN  (31), 

2  SIZE  FIXED  BIN  (31  ), 


2  AREA  ( 


2S0)  FIXED  BIN  (31); 


/•  ->  CURRENT  VP,  SET  BY  VPER 


/•  ADDR  (BOTTOM  DSA) 

/•  A  DDR  (TOP  DSA) 

/*  SIZE  OF  AREA  TO  BE  SAVED 

/•  ->  1ST  SAVBLK 

/•  NAME  OF  TOP  LEVEL  PROC 

/•  CHAIN  OF  INCOMING  MAIL 

/♦  BOX  AWAITING  MAIL 
/•  MSG  IN  WAIT. BOX 
/•  INDEX  IN  THE  VPST 
/•  LEVEL 


/*  NEXT  SAVED  ITEM 
/•  BEG  ADOR  OF  SAVED  ITEM 
/•  SIZE  OF  SAVED  ITEM 


DCL  1  DEBUG  EXTERNAL  STATIC, 

2  SLEEPS  BIT ( 1  )  INIT  (»0'B), 

2  SAHERS  BIT (  1 )  INIT  ('O'B), 

2  SCHEDULERS  B!T(1)  INIT  ('O'B), 
2  SHELLS  BIT( 1 )  INIT  ('O'B), 

2  AAHERS  BIT(1)  INIT  ('O'B); 

DCL  DSA  FIXEO  BIN  (31,0), 

NAB  FIXED  BIN  (31,0), 

SEG  FIXED  BIN  (31,0), 

EOS  FIXED  BIN  (31,0); 


SLE00010 

SLE00020 

SLE00030 

SLE00040 

SLE00050 

SLE00060 

♦/VPXOOOlO 

VPX00020 

VPX00030 

•/vp  oooio 
•/VP  00020 
•/VP  00030 
•/VP  00040 
•/VP  00050 
VP  00060 
•/VP  00070 

vp  oooeo 

•/VP  00090 

•/vp  ooioo 

•/VP  00110 
•/VP  00120 
VP  00130 
VPX00030 
SAV 00030 
SAV00060 
SAV00070 
SAV00080 
SAV00090 
•/SAVOOfOO 
•/SAV001 1 0 
•/SAV00120 
SAV001 30 
SAV00140 
OEBOOOIO 
DEB00020 
DEB00030 
DEB00040 
DEB00050 
DEB00060 
SLE00100 
GET0001 0 
GET 00020 
GET 00030 
GET 00040 
GET 00050 
GET00060 
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PL/1  OPTIMIZING  COMP  I LER 


NUMBER  LEV  NT 


R 


$00070  1  0  OCL  GET 4  ENTRY  (FIXED  BIN  (31),  FIXED  BIN  (31), 

FIXED  BIN  (31),  FIXED  BIN  (31)) 
OPTIONS  (ASSEMBLER,  INTER); 

700010  1  0  DCL  SVSTK  ENTRY  (PTR,  FIXED  BIN  (31)) 

OPTIONS  (ASSEMBLER,  INTER); 

/•  ARGf.  PTR  ->  SAVBLK 

ARGZ:  ADDR  OF  RETURN  DSA  (BOTTOM  OSA ) 

»/ 


/•  VP. STATUS  •  ‘RUNNABLE*  DEBUG  •/ 


700160 
700170 
7001  BO 
700190 
700300 
700310 


0  CALL  GET4  (OSA. NAB, SEG, EOS); 

0  IF  SEG  *•  255  THEN  DO; 

1  PUT  SKIP  LIST  (•  ERROR!  t LLEGAL  SEGNO.  (SLEEP)')! 

1  PUT  DATA  (SEG); 

1  STOP; 

1  END; 


700340 
700350 
.  700360 

700270 
700280 
700390 
'  700300 

700310 
700320 


0  NSIZE  •  NAB  -  VP.BDSA; 

0  OSUE  •  VP.  SAVES  IZE: 

0  NEW  NBLK  •  (NSIZE  *  1000  -  1)  /  >000; 

0  GLO~NBLK  •  (OSIZE  ♦  1000  -  1)  /  1000) 

0  OIFF  NBLK  *  NEW  NBLK  -  OLD  NBLK; 

0  I?  ( DEBUG. SLEEPS )  THEN  DO; 

i  put  skip  list  c  sleep:  '): 

1  PUT  DATA  (NSIZE, OSIZE, NEN_NBLK,OLD_NBLK,OIPF  NBLK) I 

1  END; 


700340 
700350 
700360 
700370 
700  3  BO 
700390 
700400 
700410 
700420 
700430 
700440 
700450 
700460 
700470 
700480 
700490 
700500 
700310 
700520 


0  IF  OIFF  NBLK  >  0  THEN  DO; 

1  NEXT  «  VP. SAFE; 

1  DO  WHILE  (OIFF  NBLK  >  0); 

2  ALLOCATE  SAVBLK  SET  (THIS)I 

3  THIS  ->  SAVBLK. NEXT  .  NEXT; 

3  NEXT  .  THIS; 

2  0IFF_N8LK  .  DIFF.NBLK  -  1; 

2  ENO; 

1  VP. SAFE  •  THIS; 

1  END; 

O  ELSE  IF  OIFF  NBLK  <  0  THEN  DO; 

1  THIS  *  VP. SAFE; 

1  DO  WHILE  (OIFF  NBLK  <  0); 

2  NEXT  «  THIS  ->  SAVBLK. NEXT; 

2  FREE  This  ->  SAVBLK; 

2  THIS  *  NEXT! 

2  DIFF.NBLK  •  OIFF  NBLK  ♦  11 

2  END; 

I  VP. SAFE  •  THIS! 


GET00070 

GETOOOBO 

GET00090 

SVS00010 

SVS00020 

SVS00030 

SVS00040 

svsoooso 

SVS00060 

SLE00I30 

SLE00140 

SLE00150 

SLE00160 

SLE00170 

SLC00180 

SLE00190 

siEOoaoo 

SLE00210 

SLE00320 

SLE00230 

SLE00Z40 

SLE002SO 

SLE00260  1 

SLE00270  1 

SLE002B0 

SLE00290 

SLE00300 

SLE00310 

SLE00320 

SLE00330 

SLE00340 

SLE00350 

SLE00360 

SLE00370 

SLE003B0 

SLE00390 

SLE00400 

SLE0041 0 

SLE00430 

SLE00430 

SLE00440 

SLE00450 

SLE00460 

SLE00470 

SLE00480 

SLE00490 

SLE00500 

SLE0051 0 

SLE00S20 


Ill 
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NUMBER  LEV  NT 


700530  1  1  END: 


700550 

700500 

7005B0 

700550 

700600 

700610 

700620 

700630 

700640 

700650 

700660 

700680 


700720 


1  0  VP.SAVESIZE  •  NSIZE; 

t  0  VP.TOSA  •  OSA; 

1  0  THIS  .  VP.  SAFE; 

1  0  SAVE.ADDR  •  VP.BDSA; 

t  0  00  WHILE  (THIS  NULL): 

<  1  THIS  ->  SAVBL K. SIZE  •  MINI  1000, NSIZE)) 

I  <  THIS  ->  SAVBL K.ADOR  •  SAVE  ADDA j 

<  1  NSIZE  >  NSIZE  -  1000; 

*  1  SAVE.ADOR  •  SAVE  AOOR  ♦  1000; 

1  1  THIS  •  THIS  ->  SAVBLK.NEXT; 

I  1  ENO; 

1  0  CALL  SVSTK  (VP. SAFE, VP.BDSA)  | 

/•  CONTROL  SHOULO  COME  HERE  AFTER  RTSTK  »/ 

1  0  END  SLEEP; 


SLE00530 

SLE00540 

SLE00S50 

SLE00560 

SLE00570 

SLE005B0 

SLE00S90 

SLE00600 

SLE0061 0  1 

SLE00620 

SLE00630  1 

SLE00640  I 

SLE00650 

SLE00660 

SLE00670 

SLE00680 

SLE00690 

SLE00700 

SLE00710 

SLE00720 


I 


I 
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STIMEB:  PROC  RETURNS  (FIXED  B1N<31)) 
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SOURCE  LISTING 

NUMBER  LEV  NT 


10  0  STIMER:  PROC  RETURNS  (FIXED  BZNOI));  STIOOOlO 

ST  I  00020 

X  INCLUDE  . . . . . . . . 

100010  1  0  DCL  THISSVR  PTR  EXTERNAL  STATIC!  /•  ->  CURRENT  SVR,  SET  BT  SAHER  •/  SVR00010 

SVR00020 

100030  1  0  DCL  1  SVR  BASED  (THISSVR),  XINCLUDE  SVR ••••SVR00030 

70  NEXT  PTR,  SVR00010 

70  ST1ME  FIXEO  BIN  (31),  SVR00020 

70  STIMEQ  FIXED  BIN  (31),  /•  ACCUMULATED  STIME  »/SVR00030 

70  RTIME  FIXEO  BIN  (31),  SVR00040 

70  RRATE  FIXED  BIN  (15,7),  /•  REAL  CPU  TICK  RATE  A/SVROOOSO 

70  ID  FIXED  BIN  SVR00060 

. . j  SVR00030 

SVR00040 

•  •••<••<••••)<  S  T 1 00030 

400040  1  0  OCL  RT  FIXED  BIN  (31);  STI00040 

% 1NCLU0E  RT IMER j....................................... *»,»STIOOOSO 

500010  1  0  DCL  RT I MER  ENTRY  RETURNS  (FIXED  BIN  (3t));  RTI00010 

A  . . .  ST  1 00050 

.  ST  100060 

»0  500070  10  RT  .  RTIMER  -  SVR. RTIME)  STI00070 

I  500080  10  RT  »  RT  •  SVR. RRATE;  STIOOOBO 

* 00090  1  0  RETURN  (RT  ♦  SVR. STIME)!  STIOOOBO 

STIOOIOO 

ST  1001 10 


500110  1  0  END; 


113- 
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SVCER :  PROC  (SVC.PT); 
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SOURCE  LISTING 


NUMBER  LEV  NT 


R 


I 


10 

0 

SVCER:  PROC  ( SVC.PT  ); 

30 

1 

0 

DCL  SVC  FIXED  BIN; 

40 

1 

0 

DCL  PT  PTR; 

100010 

1 

0 

DCL  THISVP  PTR  EXTERNAL  STATIC 

100030 

1 

0 

DCL  1  VP  BASED  (THISVP), 

GO  80SA  FIXED  BIN  (31), 

BO  TOSA  FI XEO  BIN  (31 ) , 

80  SAVESIZE  FIXED  BIN  (31), 
80  SAFE  PTR, 

80  PROCNAME  CHAR  (7)  VAR, 

80  STATUS  CHAR  (12)  VAR, 

00  MAIL  PTfi, 

80  WAIT, 

81  BOX  FIXED  BIN, 

61  MSG  PTR, 

80  VPID  FIXED  BIN, 

80  LEVEL  FIXED  BIN, 

80  VTIME  F 1XED  BIN  (31  ) 


400010 


0  DCL  THISLOS  PTR  EXTERNAL  STATICS 


400030  1  0  DCL  1  LOS  BASED  (THISLOS). 


70 

LEVEL  FIXED  BIN, 

70 

SRQ, 

71 

SIZE  F I XEO  BIN, 

71 

MAX  FIXED  BIN, 

70 

DBB, 

71 

SIZE  FIXED  BIN, 

71 

MAX  FIXED  BIN, 

70 

VPS. 

71 

TABLE  (  20), 

60 

BDSA  FIXED  BIN  (31  ) , 

60 

TOSA  FIXED  BIN  (31 ) , 

BO 

SAVESIZE  FIXED  BIN  (31) 

60 

SAFE  PTR, 

80 

PROCNAME  CHAR  (7)  VAR, 

80 

STATUS  CHAR  (12)  VAR, 

80 

MAIL  PTR, 

80 

WAIT, 

81  BOX  FIXED  BIN, 

81  MSG  PTR, 

80 

VPIO  FIXED  BIN, 

BO 

LEVEL  FIXED  BIN, 

/•  ->  CURRENT  VP,  SET  BY  VPER 


/*  A DDR  (BOTTOM  DSA) 

/*  A  DDR  (TOP  OSA) 

/•  SIZE  OF  AREA  TO  BE  SAVED 

/*  ->  1ST  SAVBLK 

/♦  NAME  OF  TOP  LEVEL  PROC 

/♦  CHAIN  OF  INCOMING  MAIL 

/*  BOX  AWAITING  MAIL 
/»  MSG  IN  WAIT. BOX 
/•  INDEX  IN  THE  VPST 
/♦  LEVEL 


/•  CURRENT  LOS.  ST  BY  SAHER 


/*  AODR  (BOTTOM  DSA) 

/•  A DDR  (TOP  DSA) 

/•  SIZE  OF  AREA  TO  BE  SAVED 

/*  ->  1ST  SAVBLK 

/•  NAME  OF  TOP  LEVEL  PROC 

/*  CHAIN  OF  INCOMING  MAIL 

/•  box  awaiting  mail 

/*  MSG  IN  WAIT. BOX 
/*  INDEX  IN  THE  VPST 
/♦  LEVEL 


SVC00010 
SVC00020 
SVC00030 
SVC00040 
SVC00050 
•/VPX00010 
VPX00020 
VPX00030 
•/VP  00010 
•/VP  00020 
•/VP  00030 
•/VP  00040 
•/VP  oooso 
VP  00060 
•/VP  00070 
VP  00080 
•/VP  00090 
•/VP  00100 
•/VP  00110 
•/VP  00120 
VP  00130 
VPX00030 
•/LOSOOOl 0 
LOS00020 
LOS00030 
LOSOOOtO 
LQS00020 
LOS00030 
LOS00040 
LOS00050 
10500060 
LQS00070 
LOSOOOBO 
LOS00090  1 

•/VP  00010 
•/VP  00020 
•/VP  00030 
•/VP  00040 
•/VP  00050 
VP  00060 
•/VP  00070 
VP  00080 
•/VP  00090 
•/VP  00100 
•/VP  00110 
•/VP  00120 
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SOURCE  LISTING 

NUMBER  LEV  NT 


10  0  SYNC:  PROC;  SYN00010 

SYN00020 

*  INCLUDE  VPX ;•«•«•• ••.«•«*•*•».•••••»* . . . . . . 

100010  1  0  OCL  THISVP  PER  EXTERNAL  STATIC;  /«  ->  CURRENT  VP,  SET  BY  VPER  P/VPX00010 

VPX00020 

100030  1  0  OCL  1  VP  BASED  (THISVP).  XINCLUOE  VP|*.*» . ......... . . 

80  BDSA  FIXED  BIN  (31),  /•  A  DDR  (BOTTOM  DSA)  */VP  00010 

BO  TOSA  FIXED  BIN  (31),  /*  A DDR  (TOP  DSA)  */VP  00020 

BO  SAVES1ZE  FIXED  BIN  (31),  /«  SIZE  OF  AREA  TO  BE  SAVED  */VP  00030 

80  SAFE  PTR.  /•  ->  1ST  SAVBLK  »/VP  00040 

80  PROCNAME  CHAR  (7)  VAR,  /•  NAME  OF  TOP  LEVEL  PROC  »/VP  00050 

80  STATUS  CHAR  (12)  VAR,  VP  00060 

80  MAIL  PTR,  /•  CHAIN  OF  INCOMING  MAIL  »/VP  00070 

80  WAIT,  VP  00080 

8 1  BOX  FIXED  BIN,  /•  BOX  AWAITING  MAIL  */VP  00090 

81  MSG  PTR,  /»  MSG  IN  WAIT. BOX  >/VP  00100 

BO  VPID  FIXED  BIN,  /«  INDEX  IN  THE  VPST  */VP  00110 

80  LEVEL  FIXEO  BIN,  /♦  LEVEL  ./VP  00120 

80  VT1ME  FIXED  BIN  (31)  VP  00130 

•  . . . .  ;  VPX00030 

£  VPX00040 

(j,  .............  SYN00030 

I  SYN00040 

X  INCLUDE  OEVENT; ....................................................... SYN00050 

500010  1  0  OCL  OEVENT  ENTRY  (FIXEO  BIN,  FIXEO  BIN  (3t ) ,  CHAR( • )  VAR,  QEV00010 

FIXEO  BIN  (31),  PTR);  QEV00020 

•  . SYN00050 

S00060  1  0  DCL  NULL  BUILTIN;  SYN00060 

500070  1  0  DCL  SLEEP  ENTRY;  SYN00070 

X  INCLUDE  STIMER;.*. •••••••••SYN00080 

600010  T  0  OCL  STIMER  ENTRY  RETURNS  (FIXEO  BIN  (31));  STIOOOIO 

. SYNOOOBO 

SYN00090 

600100  1  0  CALL  OEVENT  (VP . LEVEL*3.3,ST 1MER, 1  SYNC 1  , VP. VPID.NUL L) I  SYN00100 

600110  1  0  CALL  SLEEP;  SYN00110 

SYN00120 

600130  1  0  END;  SYN001 30 


9  T  T' 


I 

i 
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SOURCE  LISTING 


NUMBER  LEV  NT 


10  0  TERM:  PROC;  TER00010 

TER00020 

* INCLUOE  USERS ;.«•»»••»••« .4 •..••»•••»•••••••»»•••.••«• »»«•••«»•»»• ••..TER00030 

*  INCLUDE  STIMER:*.* •••••4*. 44. ....USE00010 

200010  1  0  OCL  STIMER  ENTRY  RETURNS  (FIXED  BIN  (31));  STI00010 

•  USEOO0 1  0 

300020  1  0  OCL  SEND  ENTRY  (FIXED  BIN,  FIXED  BIN,  FIXED  BIN,  CHAR(>)  VAR,  USE00020 

FIX EO  BIN,  PTR);  USE00030 

300040  1  0  OCL  WAIT  ENTRY  (FIXED  BIN);  USE00040 

300050  1  0  OCL  SYNC  ENTRY;  USEOOOSO 

300060  1  0  DCL  FINISH  ENTRY;  USE00060 

USE00070 

. .4..... .......  TER00030 

400040  1  0  OCL  (NULL, LENGTH)  BUILTINi  TER00040 

TEROOOSO 

X INCLUDE  VPX; ••••••••••••••••TER00060 

SOOOIO  f  0  DCL  THISVP  PTR  EXTERNAL  STATIC;  /«  ->  CURRENT  VP,  SET  BY  VPER  */VPX00010 

VPX00020 

I  500030  »  0  DCL  1  VP  BASED  (THISVP).  XINCLUDE  VP;*» . «...  4. ....VPX00030 

BO  BOSA  FIXED  BIN  (31),  /•  A  DDR  (BOTTOM  OSA)  */VP  00010 

80  TDSA  FIXEO  BIN  (31),  /•  ADOR  (TOP  DSA )  */VP  00020 

BO  SAVESIZE  FIXEO  BIN  (31),  /•  SIZE  OF  AREA  TO  BE  SAVED  »/VP  00030 

80  SAFE  PTR.  /•  ->  1ST  SAVBLK  «/VP  00040 

80  PROCNAME  CHAR  (7)  VAR,  /»  NAME  OF  TOP  LEVEL  PROC  »/VP  00050 

80  STATUS  CHAR  (12)  VAR,  VP  00060 

80  MAIL  PTR.  /•  CHAIN  OF  INCOMING  MAIL  »/VP  00070 

BO  WAIT,  VP  00080 

61  BOX  FIXEO  BIN.  /♦  BOX  AWAITING  MAI’.  »/VP  00090 

81  MSG  PTR,  /*  MSG  IN  WAIT. BOX  »/VP  00100 

80  VPID  FIXEO  BIN,  /♦  INDEX  IN  THE  VPST  »/VP  00110 

BO  LEVEL  FIXED  BIN,  /•  LEVEL  »/VP  00120 

80  VTIME  FIXEO  BIN  (31)  VP  00130 

. . . . . .  j  VPX00030 

VPX00040 

.............  TER00060 

XINCLUDE  SVRX ;..... .................................................... TEROOOTO 

800010  1  0  DCL  THISSVR  PTR  EXTERNAL  STATIC;  /«  ->  CURRENT  SVR,  SET  BY  SAMER  •/  SVROOOlO 

SVR00020 

800030  1  0  OCL  I  SVR  BASED  (THISSVR),  XINCLUDE  SVR ...SVR00030 

70  NEXT  PTR,  SVROOOlO 

70  STIME  FIXEO  BIN  (31),  SVR00020 

70  STIMEQ  FIXEO  BIN  (31),  /•  ACCUMULATED  STIME  ./SVR00030 

70  RTIME  FIXEO  BIN  (31),  SVR00040 

70  RRATE  FIXEO  BIN  (IS, 7),  /•  REAL  CPU  TICK  RATE  ./SVR00050 

70  ID  FIXEO  BIN  SVR00060 

. . . .  ;  SVR00030 
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TERM:  PROC; 


PAGE  3 


NUMBER  LEV  NT 


SVR00040 

•  • *  *  T  E  R00080 

1100010 

1 

0 

dcl  pt_svc  ptr; 

PFS0001 0 
PFS00020 

1100030 

1 

0 

DCL  1  PF  SVC  BASED  ( PT  SVC), 

PFS00030 

2  SVC  CHAR  (7)  VAR, 

PF  S00040 

2  PTR  PTR; 

PFS00050 

PFS00060 

TER00080 

••••TER00090 

1200010 

1 

0 

DCL  MSGLEN  FIXED  BIN; 

MSG0001 0 

1200020 

1 

0 

OCL  MSGPT  PTR; 

MSG00020 

1200030 

1 

0 

DCL  1  MSG  BASED  (MSGPT), 

MSG00030 

2  LEN  FIXED  BIN, 

MSG00040 

2  STR  CHAR  (MSGLEN  REFER  (LEN)); 

MSGOOOSO 

MSG00060 

TER00090 

1200100 

1 

0 

OCL  (LEVEL, VPIO.BOXID)  FIXED  BIN; 

TER00100 

12001  10 

1 

0 

DCL  MESSAGE  CHAP(80)  VAR; 

TER00110 

1200120 

1 

0 

DCL  COMMAND  CHAR ( 12 ); 

TER00120 

1200130 

1 

0 

DCL  TYPE  CHAR ( 8 )  VAR; 

TER00130 

TEROOMO 

1200150 

1 

0 

LOOP: 

TER001S0 

PUT  SKIP  EOIT  ('  TERM!  LEVEL  •  ’, VP. LEVEL,'  VP  •  '.VP.VPIO, 

TER00I60 

'  HA I T , BOX  .  '.VP. WAIT. BOX,1  SVR  •  '.SVR.IO,'  STINE  « 

TER00170 

SVR.StlME)  (A,F(2),A,F(2),A,F(2),A,F(2),A,F(11))t 

TER001B0 

1200190 

1 

0 

MSGPT  -  VP. WAIT. MSG; 

TER00190 

1200200 

1 

0 

IF  (MSGPT  *•  NULL)  THEN  DO; 

TER00200 

1200210 

1 

1 

PUT  SKIP  EOIT  (‘  MSGI  ', MSG. STR)  (A, A(MSG. LEN) ) ; 

TER00210 

1200220 

1 

1 

FREE  MSG: 

TER00220 

1200230 

1 

1 

VP. WAIT. MSG  «  NULL! 

TER00230 

1200240 

1 

1 

ENO; 

TER00240 

TER00250 

1200260 

1 

0 

tfORK; 

TER00260 

PUT  SKIP; 

TER00270 

1 200280 

1 

0 

DISPLAY  ('  COMMAND?’)  REPLY  (COMMAND); 

TER00280 

TER00290 

1200300 

1 

0 

IF  (COMMAND  -  'BUILD')  THEN  DO; 

TER00300 

1200310 

1 

1 

PUT  SKIP  LIST  ('  LEVEL>  '); 

TER00310 

1200320 

1 

1 

GET  LIST  (LEVEL); 

TER00320 

1200330 

1 

1 

MSGLEN  •  7; 

TER00330 

1200340 

1 

1 

ALLOCATE  MSG; 

TER00340 

1200350 

1 

1 

MSG. STR  »  ’NEW  VP» ' ; 

TER00350 

1200360 

1 

1 

ALLOCATE  PF_SVCJ 

TER00360 

1200370 

1 

1 

PF  SVC. SVC  ■  'TERM* ; 

TER00370 

1200380 

1 

1 

PF  SVC.  PTR  *  MSGPT; 

TER00380 

1200390 

1 

1 

CALL  SEND  (LEVEL, 0,1, 'S' ,15,PT_SVC)i 

TER00390 

1200400 

1 

1 

GOTO  WORK; 

TER00400 

8TT‘ 
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tEBM:  PRQC; 


HUMBER  LEV  NT 


(200410  »  * 

(200430  I  0 
(200440  1  * 

(200450  I  * 

1200460  >  1 

(200470  t  ' 

1200400  '  ' 

(200490  I  ' 

1200500  1  * 

(200510  (  ' 

1200530  t  » 

1200540  1  T 

1200550  1  1 

1200560  1  I 

1200570  »  I 

12005B0  '  ' 

1200590  T  ' 

1200610  I  0 
1200620  1  1 
(200630  1  ’ 

1200640  1  T 

1200650  1  * 

1200670  1  0 

1200660  1  * 
1200690  1  * 

1200700  1  * 

1200710  1  I 

1200730  1  0 

(200740  1  T 

1200750  1  ' 

1200760  1  1 


eno; 

E1.se  IF  (COMMAND  •  /SEMOM  £°it0.  TYPE.M£SSAGE>  •>; 

»  sk  ^'£riK'KSSWE,i 

MSGLEW  *  LENGTH  (MESSAGE) • 

ALLOCATE  MSG; 

C^LSSEn;  (tmuVRIO.OOXIO.TVPE.MSOLEN.MSGRT): 

goto  WORH; 
eno; 

ELSE  IF  (COMMAND  *  ,)f' *  ^ 

PUT  SHIP  LIST  C  BOA>  #. 

GET  LIST  (BOXlO)i 

PUT  SHIP  LIST  (*  WAITING  ), 

CALL  WAIT  (80X10); 

GOTO  LOOP; 
eno; 

cc  .f  (COMMAND  *  'STHC')  THEN  00» 

E^urSMr?rs?  c  s^cing-,, 

CALL  SYNC; 

goto  loop; 
end; 


•FINISH')  then  DO; 
finishing1,; 


else  if  (COMMANO  * 

PUT  SKIP  LIST  ( 

CALL  FINISH; 

return: 

end; 

ELSE  DO;  /•  UNKNOWN  COMMAND  •/ 
PUT  LIST  (‘  77’)i 

goto  work; 
eno; 


i  o  end  term; 


TER00410 

1(000420 

TER00430 

1ER00440 

TER004S0 

TER00460 

TER00470 

TER00480 

TER00490 

TER00500 

TEROOSlO 

TER00520 

TER00530 

TER00540 

TEROOS50 

TER00560 

TEB00570 

TEROOSBO 

TER00590 

TER00600 

TER006(0 

TER00620 

TER00630 

TER00640 

TER00650 

TER00660 

TER00670 

TER006B0 

TER00690 

TER00700 

TER00710 

TER00720 

TER0073D 

TER00740 

TER00750 

TER00760 

TER00770 

TEROO70O 


(200780 


6TI- 


Pl/1  OPT  JMJ  Z  INC  COMPILER 


vper:  PROC  (VP) ; 


PAGE  a 


SOURCE  LISTING 


number  lev  NT 


* 


10 

30 

40 

SO 


3000 10 
300030 


$000 1 0 
600030 


700070 

700090 


1 

1 

1 


1 

1 


I 

1 


1 

t 


0 

0 

0 

0 


0 

0 


0 

0 


0 

0 


VPER:  PROC  (VP); 

DCL  (THIS,  NEXT)  PTR; 

DCL  TMISVP  PTR  EXTERNAL  STATIC; 

OCL  1  VP. 

80  80SA  FIXED  BIN  (31) , 

80  TDSA  FI XED  BIN  (31 ) . 

80  SAVESIZE  FIXED  BIN  (31 
80  SAFE  PTR, 

80  PROCNAME  CHAR  (7)  VAR, 
80  STATUS  CHAR  (12)  VAR, 
80  MAIL  PTR, 

80  WAIT, 

81  BOX  FIXED  BIN, 

81  MSG  PTR. 

80  VPID  FIXED  BIN, 

80  LEVEL  FIXEO  BIN. 

UO  vriME  FIXED  BIN  (31) 

DCLTHISSVR  PTR  EXTERNAL  STATIC? 

OCL  t  SVR  BASED  (THISSVR), 

70  NEXT  PTR , 

70  stime  FIXED  BIN  (31), 

70  S TIMED  ftXED  BIN  (31), 

70  RT1ME  FIXED  BIN  (31), 

70  RRATE  FIXEO  BIN  (IS. 7), 
70  ID  FIXED  BIN 

OCL  BOX PT  ptr; 

OCL  1  BOX  BASEO  (BOXPT), 

2  NEXT  PTR, 

2  ID  FIXEO  BIN, 

2  LIST  PTR; 


OCL  NEWSAVBLK  PTR; 

DCL  f  SAVBLK  BASED  (NEWSAVBLK), 

2  NEXT  PTR, 

2  AOOR  FIXED  BIN  (31), 

2  SUE  FIXED  BIN  (31), 

2  AREA  (  2S0)  FIXEO  BIN 


/•  AOOR  (BOTTOM  DSA) 

/*  A DOR  (TOP  DSA) 

,  /•  SIZE  OF  AREA  TO  BE  SAVED 

/•  “>  1ST  SAVBLK 
/•  NAME  OF  TOP  LEVEL  PROC 

/•  chain  of  incoming  mail 

/•  BOX  AWAITING  MAIL 
/*  MSG  IN  WAIT. BOX 
/*  INOEX  IN  THE  VPST 
/•  tEVEL 


/•  ->  CURRENT  SVR,  $ET  BY  SANER 


/»  ACCUMULATED  SUMC 
/*  REAL  CPU  TICK  RATE 


/•  NEXT  SAVED  ITEM 
/•  BEG  ADDR  OF  SAVED  ITEM 
/•  SUE  OF  SAVED  ITEM 

ODt 


VPCOOOfO 
VPE00020 
VPE00030 
VPE00040 
VPE00050 
•/VP  00010 
•/VP  00020 
•/VP  00030 
•/VP  00040 
•/VP  00050 
VP  00060 
•/VP  00070 
VP  00080 
•/VP  00090 

•/vp  ooioo 

•/VP  00110 
•/VP  00130 
VP  00130 
VPE00050 
•/  SVR0001 0 

SVR00020 
SVR00030 
SVR0001 0 
SVR 00020 
•/SVR00030 
SVR00040 
•/SVR00050 
SVR00060 
SVR00030 

80X0001 0 
60X00020 
80X00030 
60X00040 
BOX 00050 
80X00060 
SAV00030 
SAV00060 
SAV00070 
SAV00080 
SAV00090 
•/SAV00100 

•/SAvoono 

•/SAV00120 
SAV00130 
SAV00140 
VPE 00090 


1 


PL/1  OPTIMIZING  COMPILER  VPER:  PROC  (VP) ;  PAGE  3 

NUMBER  LEV  NT  ft 


9000  1 0 

1 

0 

OCL 

EXECUTE  ENTRY  ( CHAR ( * )  VAR); 

EXE00010 

10000  to 

1 

0 

DC  L 

DSA  FIXED  BIN  ( 31,0), 

GET 000 10 

NAB  FIXED  BIN  ( 31 .0) . 

GET00020 

SEG  FIXED  BIN  ( 31.0), 

GE  T  00030 

EOS  FIXEO  BIN  (31,0); 

GET00040 
GET 00050 
GET 00060 

1000070 

1 

0 

DCL 

GET 4  ENTRY  (FIXED  BIN  (31),  FIXED  BIN  (31), 

GET 00070 

FIXED  BIN  (31).  FIXEO  BIN  (31)) 

GET 00060 

OPTIONS  (ASSEMBLER,  INTER); 

GET00090 

1100010 

1 

0 

DCL 

RTSTK  ENTRY  (PTR.  FIXEO  BIN  (31)) 

RTS00010 

OPTIONS  (ASSEMBLER,  INTER); 

RTS00020 

RTS00030 

/•  ARG1S  PTR  ->  SAVBLK 

RTS00040 

ARG2 :  AODR  OF  RETURN  DSA  (TOP  DSA) 

RTS00050 

•/ 

RTS00060 

11001 30 

1 

0 

OCL 

(AOOP.NULL)  BUILT  IN; 

VPE00130 

1200010 

1 

0 

DCL 

STIMER  ENTRY  RETURNS  (FIXED  BIN  (31)){ 

ST  10001 0 
VPE00150 
VPE00160 

1200170 

1 

0 

THISVP  «  ADDR(VP); 

VPE00170 

VPE001B0 

1200190 

1 

0 

IF  VP. STATUS  ■  *  NASCENT '  THEN  00|  /«  STAHTINO  A  VP  •/ 

VPE00190 

VPE00200 

1200210 

1 

1 

CALL  GET4  (OS A .NAB , SEG, EOS) ; 

VPE00210 

1200220 

1 

1 

IF  SEG  255  THEN  DO; 

VPE00220 

1200230 

1 

2 

PUT  SKIP  LIST  ('  ERROR:  ILLEGAL  SEGNO  (VPER)'M 

VPE00230 

1200240 

1 

2 

PUT  DATA  (SEG); 

VPE00240 

12002S0 

1 

2 

STOP; 

VPE00250 

1200260 

1 

2 

END; 

VPE00260 

VPE00270 

1 200260 

1 

1 

VP.BDSA  -  DSA; 

VPE00280 

1200290 

1 

1 

VP. STATUS  *  'RUNNING';  /•  SET  TO  RUNNING  •/ 

VPE00290 

1200300 

1 

1 

CALL  EXECUTE  ( VP . PROCNAME ) ; 

VPE00300 
VPE0031 0 

/•••  SVSTK  A  RTSTK  SHOULD  RETURN  HERE  TOO  •••/ 

VPE00320 

VPE00330 

1200340 

1 

1 

VP.VTIME  *  VP.VTtME  ♦  (STIMER  -  SVR.5T!M€)f 

VPE00340 

1200350 

1 

1 

IF  VP. WAIT. BOX  *  -1  THEN  DO;  /•  FINISHED  •/ 

VPE00350 

1200360 

1 

2 

THIS  ■  VP. SAFE; 

VPE00360 

1200370 

1 

2 

DO  WHILE  (THIS  *■  NULL); 

VPE00370 

1200380 

1 

3 

NEXT  «  THIS  ->  SAVBLK. NEXT; 

VPE00380 

1200390 

1 

3 

FREE  THIS  ->  SAVBLK; 

VPE00390 

1200400 

1 

3 

THIS  ■  NEXT; 

VPE00400 

1200410 

1 

3 

END; 

VPE0041 0 

1200420 

1 

2 

VP. SAFE  -  null; 

VPE00420 

1200430 

1 

2 

THIS  •  VP. MAIL; 

VPE00430 

1200440 

1 

2 

DO  WHILE  ( THIS  NULL); 

VPE00440 

1200450 

1 

3 

NEXT  •  THIS  ->  BOX. NEXt ; 

VPE00450 

m 


Pl/I  OPTIMIZING  COMPILER 


VPERI  PROC  (VP); 


MGE  4 


NUMBER 


1200460 

1200470 

1200480 

1200490 

1200500 

1200520 

1200530 

1200550 

1200570 

1200580 

1200590 

1200600 

1200610 

1200620 

1200630 

1200640 

1200660 

1200670 

1200680 

1200690 

1200700 

1200710 

1200720 

1200730 

1200750 

1200760 


1200790 

1200800 

1200820 

1200840 


UV  NT 


II 


1  3  FREE  THIS  ->  BOX; 

1  3  THIS  ■  NEXT; 

1  3  END; 

1  3  VP. MAIL  •  NULL; 

1  2  ENO;  /•  FREEING  •/ 

1  1  RETURN; 

1  1  END; 


1  0  ELSE  DO;  /•  STATUS  -  RUNNABLE  •/ 


1  1 
1  1 
1  2 
1  2 
1  2 
1  2 
1  1 
1  2 

1  2 
1  2 
1  2 
1  1 
1  2 
1  2 
1  2 
1  2 


CALL  GET4  (DSA.NAB.SEG.EOS) ; 

IF  SEG  “«  255  THEN  00; 

PUT  MTA  (SEG)!'  ERR°R!  ,LLEGAL  SEQN°  (VPER) 1 )  t 

stop; 

END; 


ir  tEU.  U3AJ 


lfr,anisjuE|  men 


put  skip  list 

('  ERROR;  NOT  ENOUGH  SPACE  TO  RESUME  VP  (VPERI')l 
PUTpOATA  ( VP.VPID.VP.SAVESIZE.OSA, EOS) I 

ENO; 

If  OSA  "•  VP.BDSA  THEN  DO: 

PUT  SKIP  LIST  ('  ERROR:  BOSA  DISCREPENCY  (VPER)’ It 
PUT  DATA  (VP.VPIO.VP.BOSA.OSA);  '  '  ” 

STOP ; 

END; 


'  1  VP. STATUS  •  'RUNNING'; 

1  «  CALL  RTSTK  (VP.SAFE.VP.TOSA) J 

/•  CONTROL  SHOULD  NEVER  REACH  HERE  •/ 

1  1  ST0P-K,P  L,ST  *'  ERR0'"  ,tlECAL  RETURN  PROM  RTSTK  (VPER)»)| 

1  1  ENO;  /.  RESUMING  A  VP  »/ 

1  0  ENO  VPER; 


VPE00460 

VPE00470 

VPE00480 

VPE00490 

VPE 00500 

VPE00510 

VPE0OS20 

VPEOOS3Q 

VPE00S40 

VPE 00550 

VPE00S60 

VPE00570 

VPE00580 

VPE00590 

VPE00600 

VPE006I 0 

VPE0O620 

VPE00630 

VPE00640 

VPE00650 

VPE00660 

VPE00670 

VPE006B0 

VPE00690 

VPE00700 

VPE0071 0 

VPE00720 

VPE00730 

VPE 00740 

VPE007SQ 

VPE00760 

VPE00770 

VPE00780 

VPE00790 

VPE00800 

VPE008I0 

VPE00820 

VPE 00830 

VPE00840 


I 


PL/I  OPTIMIZING  COMPILER 


VPS  TART:  PROC  (VP,  PROCNAME.  ARGPT)! 


page  a 


SOURCE  LISTING 


NUMBER 

LEV 

NT 

10 

0 

V  PST  ART  :  PROC  (VP,  PROCNAME,  ARGPT ) ; 

VPS00010 

VPS00020 

30 

1 

0 

OCL  1  VP.  XINCLUOE  VP;************** 

»«.«VPS00030 

80  BDSA  FIXED  BIN  (31  ) , 

/•  A DDR  (BOTTOM  DSA) 

•/VP  00010 

80  TOSA  FIXED  BIN  (31  )  , 

/•  A DDR  (TOP  DSA) 

*/VP  00030 

80  SAVESIZE  FIXED  BIN  (31), 

/•  SIZE  OF  AREA  TO  BE  SAVED 

*/VP  00030 

80  SAFE  PTR, 

/•  ->  1ST  SAVBLK 

*/VP  00040 

80  PROCNAME  CHAR  (7)  VAR, 

/•  name  of  top  level 

PROC 

*/VP  oooso 

80  STATUS  CHAR  (12)  VAR, 

VP  00060 

80  MAIL  PTR, 

/•  CHAIN  OP  INCOMING 

MAIL 

*/VP  00070 

80  WAIT. 

VP  00080 

81  BOX  FIXED  BIN, 

/•  BOX  AWAITING  MAIL 

*/VP  00090 

81  MSG  PTR, 

/•  MSG  IN  WAIT. BOX 

#/VP  00100 

80  VPID  FIXEO  BIN. 

/•  INDEX  IN  THE  VPST 

•/VP  00110 

80  LEVEL  FIXED  BIN, 

/•  LEVEL 

*/VP  00130 

80  VTIME  F IXED  BIN  (31  ) 

VP  00130 

VP500030 

300040 

1 

0 

DCL  PROCNAME  CHAR(«)  VAR; 

VPS00040 

300050 

1 

0 

DCL  ARGPT  PTR; 

VPS00050 

VPS00060 

300070 

1 

0 

DCL  NULL  8UILTIN; 

VPS00070 

►••♦VPS00080 

300010 

1 

0 

DCL  QEVENT  ENTRY  (FIXED  BIN,  FIXED  BIN  (31),  CHAR(.)  VAR, 

OEVOOOtO 

FIXEO  BIN  (31),  PTR); 

QEVQ0020 

VPS00080 

....VPS00090 

400010 

1 

0 

DCL  STIMER  ENTRY  RETURNS  (FIXEO  BIN 

(  31 )  )  1 

ST  1 00010 

VPS00090 

VPSOOIOO 

4001 10 

1 

0 

VP. STATUS  .  ’NASCENT*! 

VPSOOMO 

400130 

1 

0 

VP. PROCNAME  •  PROCNAME* 

VPS001 20 

400130 

1 

0 

VP. SAFE  -  NULL; 

VPS00130 

400 1 40 

t 

0 

VP. WAIT. 80*  •  0; 

VPSOOMO 

400150 

1 

0 

VP. WAIT. MSG  -  ARGPT; 

VPS00150 

400160 

1 

0 

VP.  SAVESI  It  •  0  ; 

VPS00160 

400170 

1 

0 

VP. MAIL  ■  NULL; 

VPS00170 

400190 

1 

0 

VP. VTIME  *  0; 

VPS00180 

400190 

1 

0 

CALL  QEVENT  (VP . LEVEL*3.3, STIMER 

,  ' SYNC '  .VP.VPIO.NULLH 

VPS00190 

/•  KICK  START  •/ 

VPS00200 

VPS00210 

400330 

1 

0 

END  VPSTART; 

VPS00220 

PL/1  OPTIMIZING  COMPILER 


HAITI  PROC  (BO* ID); 


SOURCE  LISTING 

NUMBER  LEV  NT 


OJ 

I 


10  0  WAIT :  PROC  (BOXIO);  NAI00010 

HA  1 00020 

X  INCLUDE  QEVENT ;.»«*«.. . ................................... ....HAI00030 

100010  1  0  DCL  OEVENT  ENTRY  (FIXED  BIN,  FIXEO  BIN  (31),  CHAR(<)  VAR.  QEV00010 

FIXED  BIN  (31),  PTR ) ;  QEV00020 

................  HA I 00030 

X  INCLUDE  STIMER ;••• ...♦••••••••.•••MAI 00040 

200010  1  0  OCL  STIMER  ENTRY  RETURNS  (FIXEO  BIN  (31));  STI00010 

. .  HA  1 00040 

200050  1  0  DCL  SLEEP  ENTRY;  HAI00050 

200060  1  0  OCL  (NULL)  BUILTIN;  HAI00060 

HA  1 00070 

X INCLUOE  . . •••«•*•••• . HA I000B0 

300010  1  0  OCL  THISVP  PTR  EXTERNAL  STATIC;  /•  ->  CURRENT  VP,  SET  BY  VPER  ./VPX00010 

VPX00020 

300030  1  0  DCL  1  VP  BASED  (THISVP),  XINCLUOE  VP | ....VPX00030 

80  BDSA  FIXED  BIN  (31),  /«  A  DDR  (BOTTOM  DSA)  ./VP  00010 

80  TOSA  FIXED  BIN  (31),  /•  AOOR  (TOP  DSA)  «/VP  00020 

80  SAVESIZE  FIXEO  BIN  (31),  /•  SIZE  OF  AREA  TO  BE  SAVED  >/VP  00030 

80  SAFE  PTR,  /.  ->  1ST  SAVBLK  ./VP  00040 

80  PROCNAME  CHAR  (7)  VAR,  /«  NAME  OF  TOP  LEVEL  PROC  */VP  00050 

80  STATUS  CHAR  (12)  VAR,  VP  00060 

80  MAIL  PTR.  /.  CHAIN  OF  INCOMING  MAIL  */VP  00070 

80  HAIT,  VP  00080 

81  BOX  FIXED  BIN,  /«  BOX  AM  A!  TING  MAIL  ./VP  00000 

8 1  MSG  PTR.  /.  MSG  IN  WAIT. BOX  >/VP  00100 

80  VPID  FIXED  BIN,  /.  INDEX  IN  THE  VPST  ./VP  00110 

80  LEVEL  FIXED  BIN,  /•  LEVEL  */VP  00120 

80  VT1ME  FIXEO  BIN  (31)  VP  00130 

. . . . .  ;  VPX00030 

VPX00040 

. .  HAIOOOBO 

S00090  1  0  DCL  BOXIO  FIXEO  BIN;  HAI00090 

HA  1 00 100 

500110  1  0  VP. HAIT. BOX  .  BOXIO;  WAI00I10 

500120  1  0  CALL  OEVENT  (VP . LEVEL«3.3, STIMER, ' WAIT ' , VP. VPID.NUL L) |  WAI00120 

500130  1  0  CALL  SLEEP;  WAI00130 

WAI00140 

500150  1  0  END  HAIT;  WAI00150 


125- 
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1 


LOC  OBJECT  CODE  AOOA1  ADDR2  STMT  SOURCE  STATEMENT 


ASM  0201  21.34  05/18/BI 


1  *  GET4  GETS  THE  VALUE  OF  THE  CURRENT  OSA,  NAB.  SEGNO  S  EOS 

2  * 

3  .  DCL  GET  ENTRY  OPTIONS  ( ASSEMBLE, INTER) t 

4  •  CALL  GET4  (DSA, NAB. SEGNO. EOS); 


5  • 


oooooo 

oooooo 

C7C5E3F440 

6  GT 

7 

8 

000005 

000006 

05 

90EC 

DOOC 

ooooc 

9 

10  GET4 

OOOOOA 

5861 

0000 

00000 

11 

OOOOOE 

5006 

0000 

00000 

12 

0000 1 2 

586 1 

000 4 

00004 

13 

000016 

5870 

004C 

0004C 

14 

00001 A 

4177 

0000 

00000 

15 

00001 E 

5076 

0000 

00000 

16 

000022 

5861 

0008 

00008 

17 

000026 

5870 

004C 

0004C 

16 

00002A 

8870 

0018 

00018 

19 

00002E 

5076 

oooo 

00000 

20 

000032 

5861 

oooe 

ooooc 

21 

000036 

587C 

oooc 

ooooc 

22 

00003A 

4177 

0000 

00000 

23 

00003E 

5076 

0000 

00000 

24 

000042 

98  EC 

DOOC 

ooooc 

25 

000046 

07FE 

26 

27 

CSECT 

ENTRV 

GET4 

DC 

C '  GE  T  4  ' 

OC 

ALUS) 

STM 

14.12,12(13) 

L 

6,0(1  ) 

ST 

13,0(6) 

1 

6.4(1  ) 

L 

T ,76( 13) 

LA 

7,0(7) 

ST 

7,0(6) 

L 

6,6(1  ) 

L 

7.76(13) 

SRL 

7,24 

ST 

7,0(6) 

L 

6.12(1) 

L 

7,12(12) 

LA 

7,0(7) 

ST 

7.0(8) 

LM 

14,12.12(13) 

BR 

EN0 

14 

SAVE  REG1ST0RS 

ARG1  <*  R13 

AT  <•  (SEGNO, NAB) 
AT  <•  NAB 
ARG2  <*  NAB 

AT  <•  (SEGNO, NAB) 
AT  <•  SEGNO 
AAG3  <•  SEGNO 

AT  <•  (SEGNO, EOS) 
AT  <»  EOS 
AAG4  <•  EOS 
SAVE  REG1ST0R 


GET 000 10 

get  00020 

GET 00030 
GET 00040 
GET 00050 
GET 00060 
GET 00070 

getooobo 

get 00090 
getooioo 
getoomo 

GET 00 120 
GET 00 130 
GET  001 40 
getooiso 
GET 00 160 
GET00170 

getooiso 

GE  TOOI 90 
GET 00200 
GET00210 
GET00220 
GET 00230 
GET 00240 
GET 00250 
GET00280 
GET 00270 


PAGE 


.OOP-  »°0«  S0URC£ 

IOC  OBJECT  CODE  »°°  , 


statement 


oooooo 

000000  4009E3C904CS09 

000007  06 
000008  90EC  OOOC 
OOOOOC  0580 

00000 E  « 'A0  8822 

000012  03400 °°<jc 

000016  5844  OOlC 
00001*  5440  8042 
00001 E  5811  0000 

000022  5041  0000 
000026  98EC  OOOC 
00002 A  07FE 

000030 

000050  7FFFE  FEE 


ooooc 

00030 

0001C 

00050 

ooooo 

ooooo 

ooooc 


OOOOE 


5  RTIMER 

6 


9 

to 

11 

12 

13 

14 

15 

16  * 

17  BLK 


18 

19 


CSECT 

entry 

DC 

OC 

STM 

balr 

USING 

LA 

DC 

L 

N 

L 

ST 

IM 

BR 

DS 


RTIMER 
C*  RTIMER* 
ALH6) 

,4.12.12(13) 
II. 0 
«  ,  1 1 
4.BLK 

X' 834 OOOOC 
4,28(41 
4,.*'7FFFFFFf 
1  ,0(1  ) 

4,0( 1 )  <4„. 

,4,12 , 12(T3) 
14 


END  .X^FFFFEEE' 


asm  0201  21 


.34  05/1B/81 

BT ,00010 
BT  I  00020 
BT 100030 
BT 100040 
BT 100050 
BT 100060 
BT 100070 
BT 100080 
BT 1 00090 

BT 100100 

bt iooi i o 

BT 1001 20 

Bt 100130 
BT 1001 40 
Bt 100150 
BT 100160 
Bt 100170 

BT 100180 


Is) 

cr> 

I 


LZX 


¥ 
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IOC 

OBJECT  CODE 

AODR 1  AO0R2 

stmt 

SOURCE 

statement 

ASM  0201  21. 

.34  os/te/et 

1 

•  RTSTK 

RESTORES  THE  STACK: 

RTS00010 

2 

RTS00020 

3 

•  DCL 

RTSTK  ENTRY  OPTIONS  (ASSEMBLE.  INTER)! 

RTS00030 

4 

•  CALL 

RTSTK 

(PTR,  OSA) ; 

R1S00040 

5 

RTSOOOSO 

6 

*  WERE 

RT  S00060 

7 

RTS00070 

Q 

•  PTR 

->  SAVBLKt  O(SAVBLK) 

->  NEXT  SAV0LK 

RTS00080 

9 

4 (SAVBLK) 

->  1ST  LOCATION  TO  SAVE/RESTORE 

RTS00090 

10 

8 ( SAVBLK) 

->  SIZE  OF  SAVBLK 

RTS00100 

11 

1 2 ( SAVBLK )  . 

...  SAVE  AREA 

RTSOOIIO 

12 

RTS00120 

13 

•  OSA 

->  RETURN  DSA  (WHERE 

RTSTK  SHOULD  RETURN) 

RTS00130 

14 

RT  SO0 140 

oooooo 

15 

RT 

CSECT 

RTS001S0 

16 

entry 

RTSTK 

RTS00160 

OQOOOO 

D9E3E  2E3D2 

17 

DC 

C'RTSTK* 

RTS00170 

000005 

05 

18 

OC 

AL1(5) 

RT  SOOt  BO 

19 

% 

R1S00190 

000006 

90EC 

oooc 

OOOOC 

20 

RTSTK 

STM 

14, 12,12(13) 

SAVE  REGISTORS 

RTS00200 

OOOOOA 

05B0 

21 

BALR 

11,0 

ESTABLISH  BASE 

RTSOOIIO 

OQOQC 

22 

USING 

•>,11 

RTSD0230 

oooooc 

I860 

23 

LR 

6,13 

R6  ->  OLD  OSA 

RTS00230 

oooooc 

4100 

B05C 

00068 

24 

LA 

13, SAKE 

R13  ->  NEW  DSA 

RTS00240 

000012 

5060 

0004 

00004 

25 

ST 

6,4(13) 

CHAIN  BACK 

RTS002S0 

000016 

9280 

0000 

00000 

26 

MVt 

0(13) .x'BO* 

SET  FLAGS 

RTS00260 

00001 A 

9200 

DOOt 

00001 

27 

MV  l 

1(131  ,  X ' 00  * 

RTS00270 

oooo ie 

D208 

0040  8046 

00048  00040 

28 

MVC 

721 13, 131,7216)  COPY  A(ISM).  ETC. 

RTS002B0 

29 

• 

RTS00290 

000024 

5861 

0000 

00000 

30 

l 

6,0(1) 

RB  ->  1ST  ARG  ->  1ST 

SAVBLK 

RTS00300 

00002B 

5866 

0000 

ooooo 

31 

L 

6,0(6) 

RB  ->  1ST  SAVBLK 

RTS00310 

32 

• 

RTS00320 

00002C 

5876 

0004 

00004 

33 

AGAIN 

L 

T,4(8) 

RT  ->  SAVBLK. ADOR 

RTS00330 

000030 

4186 

OOOC 

ooooc 

34 

LA 

8,12(6) 

RB  -»  SAVBLK. AREA 

RTS00340 

000034 

5BA6 

0008 

00008 

35 

L 

10,8(6) 

RIO  ->  SAVBLK. SIZE 

RTS0O3S0 

000038 

5BA0 

B25C 

^0268 

36 

S 

10, -F 'A* 

WE  ARE  COUNTING  FROM 

S1ZE-4T0  0 

RTS00360 

37 

* 

RTS00370 

00003C 

589A 

8000 

ooooo 

38 

LOOP 

L 

9,0(10,8) 

GET  WORD 

RTS 00 380 

000040 

509A 

7000 

ooooo 

39 

ST 

9,0( 1 0,2) 

RESTORE  WORD 

RTS00390 

000044 

50AO 

B25C 

00260 

40 

S 

1 0  ,  «  F  1  A* 

OEC  COUNT 

RTS00400 

000040 

4780 

8030 

0003C 

41 

BNM 

LOOP 

AGAIN  IF  MORE 

RTS00410 

42 

• 

RTSOO420 

00004C 

5066 

0000 

ooooo 

43 

L 

6,0(6) 

R6  ->  SAVBLK. NEXT 

RT  S00430 

000050 

5560 

8260 

0026C 

44 

CL 

6 , "X  '  FFOOOOOO 

1  HULL? 

RTS00440 

000054 

4770 

B020 

0002C 

45 

BNl 

AGAIN 

RTS004S0 

46 

• 

RTS00460 

000058 

5861 

0004 

00004 

47 

L 

6,A(!) 

RB  ->  2ND  ARG  ->  TOP 

OSA 

RTS00470 

00005C 

5806 

0000 

ooooo 

48 

L 

13.0(6) 

All  ->  TOP  OSA 

RTS00480 

000060 

9BEC 

OOOC 

ooooc 

49 

LM 

14.13,12(11) 

return  THERE 

RTS00490 

000064 

07FE 

50 

88 

14 

RTS00500 

SI 

* 

RTS00510 

000068 

52 

$AF| 

OS 

128F 

RTSOOS20 

53 

ENO 

RTS00530 

000268 

00000004 

54 

•  F'4' 

00026C 

F  F 000  000 

55 

•  X'F  FBom*' 

i 

I 

I 


* 


page  a 


IOC 

OBJECT  CODE 

ADDR1  ADDR2 

Stmt 

SOURCE 

STATEMENT 

ASM  0201  21 

.34  05/IB/Bt 

i 

*  svstk 

SAVES 

the  stack: 

SVS00010 

2 

SVS00020 

3 

•  DCl 

SVSTK  1 

ENTRY  OPTIONS  (ASSEMBLE,  INTER); 

SVS00030 

4 

•  CALL 

SVSTK 

(PTR,  DSA); 

SVS00040 

5 

svsoooso 

6 

•  where 

SVS00060 

7 

SVS00070 

8 

*  ptr 

->  SAVBLK '  0( SAVBLK) 

->  NEXT  SAVBLK 

svsoooeo 

9 

4 ( SAV0LK ) 

->  1ST  LOCATION  TO  SAVE/RESTORE 

svsoooso 

10 

B ( SAVBLK  ) 

->  SIZE  OF  SAVBLK 

SVSOOIOO 

i  i 

12(SAV0LK). 

. SAVE  AREA 

svsoono 

12 

svsooisa 

13 

•  DSA 

->  RETURN  OSA  (WHERE 

SVSTK  SHOULD  RETURN) 

SVSO0I30 

14 

SVS00140 

000000 

15 

sv 

CSECT 

svsooiso 

16 

ENTRY 

SVSTK 

SVS00160 

000000 

E2E5E2E3D2 

17 

OC 

C’  SVSTK  * 

SVS0OI7O 

000005 

05 

18 

DC 

ALMS) 

sv soot  BO 

19 

• 

SVS00190 

000006 

90EC 

OOOC 

ooooc 

20 

SVSTK 

STM 

14,12,12(13) 

SAVE  REG IS TORS 

SVS00200 

00000 A 

0500 

21 

BALR 

11,0 

ESTABLISH  BASE 

SVS00210 

ooooc 

22 

USING 

♦  ,1« 

SVS00220 

oooooc 

I860 

23 

IR 

6,13 

R6  ->  OLO  OSA 

SVS00230 

00000 t 

41  DO 

B05C 

00068 

24 

LA 

13, SAFE 

Rl3  -»  NEW  OSA 

SVS00240 

000012 

5060 

0004 

OD  004 

25 

ST 

6.4(13) 

chain  BACK 

SVS002S0 

000016 

9280 

DOOO 

ooooo 

26 

MVl 

0(13) ,K‘e0‘ 

SE?  FLAGS 

Sv  500260 

00001  A 

9200 

0001 

00001 

27 

MV  l 

M 13) , X'OO* 

SVS00270 

00001  £ 

0206 

DO40  6048 

00040  00048 

2B 

MVC 

72(12, 13). 72(6)  COPY  A(L5W).  ETC. 

SVS002B0 

29 

* 

SVS00290 

000024 

5861 

0000 

OOOOO 

30 

L 

6,0(1  ) 

RB  ->  1ST  ARG  -»  1ST 

SAVBLK 

SVS00300 

0000 20 

5B66 

0000 

OOOOO 

31 

L 

6,0(6) 

RB  ->  1ST  SAVBLK 

SV  50031 0 

32 

• 

SV 500320 

00002C 

5B?6 

0004 

00004 

33 

AGAIN 

l 

7,4(6) 

RT  ->  SAVBLK. AOOR 

SVS00330 

000030 

4186 

OOOC 

ooooc 

34 

LA 

8,121  6) 

RB  ->  SAVBLK. AREA 

SVS00340 

000034 

58A6 

0000 

00008 

35 

L 

10.6(6) 

RIO  ->  SAVBLK. SIZE 

SVS003S0 

000038 

5BA0 

B25C 

00268 

36 

S 

10, *F 1 4* 

WE  ARE  COUNTING  FROM  SIZE'*  TO  0 

SVS00360 

37 

* 

SVS00370 

00003C 

5B9A 

7000 

OOOOO 

38 

LOOP 

l 

9,011  0,7) 

get  woro 

SVS00380 

000040 

509A 

8000 

ooooo 

39 

ST 

9,0(10,0) 

restore  woro 

SVS00390 

000044 

50AO 

B25C 

00268 

40 

S 

10,  »F  '  4' 

DEC  COUNT 

SVS00400 

000048 

4  7  BO 

B030 

0003C 

4 1 

BNM 

LOOP 

again  if  MORE 

SVS0041 0 

42 

SVS00420 

00004C 

5866 

0000 

OOOOO 

43 

L 

6,0(6) 

RB  ->  SAVBLK. NEXT 

SVS00430 

000050 

5560 

B260 

0026C 

44 

CL 

6.**' FFOOOOOO 

1  NULL? 

SVSOO440 

000054 

4770 

B020 

0002C 

45 

BNE 

AGAIN 

SVS004S0 

46 

♦ 

SVS0046Q 

000058 

6861 

0004 

00004 

47 

l 

6.4(1  ) 

RC  ->  2ND  ARG  ->  TOP 

OSA 

SVS00470 

Q0005C 

58D6 

0000 

OOOOO 

48 

L 

13.0(6) 

R13  ->  TOP  OSA 

SV $00480 

000060 

98£C 

DOOC 

OOOOC 

49 

IM 

14,12,12(13) 

RETURN  THERE 

SVS00490 

000064 

07FE 

50 

BR 

14 

SVSOOSOO 

51 

* 

SVSOOSIO 

000060 

52 

SAFE 

DS 

128F 

SVS00S20 

53 

two 

SVS00S30 

000260 

00000004 

54 

»f  *4* 

00026C 

FT 000  000 

55 

*X*FFOO#QOQ* 

l 


APPENDIX  C:  LISTINGS  OF  MACRO  FILES  (DATA  DECLARATIONS) 
MACRO  FILES: 

BOX 

CONFIG 

DEBUG 

EVENT 

LIST 

LOS 

LOSX 

MSG 

PARAMS 

PFADDR 

PFLEVEL 

PFMSG 

PFS 

PFSVC 

QUEUES 

SAVBLK 

SVR 

SVRX 

VP 

VPX 


129 


-130 


file:  box  PU  A 


CONVERSATIONAL  MONITOR  SYSTEM 


PAGE  001 


DC l  80XPT  PTR; 

OCL  1  BOX  BASED  (BOXPT), 
2  NEXT  PTR, 

2  ID  FIXED  BIN, 

2  LIST  PTR; 


B0X00010 

60X00020 

BOX00030 

80X00040 

60X00050 

BQX00060 

BQX00070 


FILE:  CONFIG  Pll  A 


CONVERSATIONAL  MONITOR  SYSTEM 


FACE  00 I 


xoeclare  maxlevel  fixed; 

XOECLARE  MAXQ  FIXED; 

Xmaxlevel  •  i; 

XMAXQ  .  6; 


CONOOOtO 

CON00020 

CQN00030 

CQN00040 


UJ 

I 


I 

i 


FILE:  DEBUG  PLl 


CONVERSATIONAL  MONITOR  SVSTEM 


OCL  1  DEBUG  EXTERNAL  ST AT Ic . 

2  SLEEP*  BIT(1)  INIT  (  O'B) . 

2  SAmER*  BlT(l)  INIT 
2  SCHEDULERS  BIT(1)  INIT  <  O'B). 
2  SHELL*  81 T{ 1 )  INIT  ('O'B). 

2  AAHERS  BI T ( 1 )  INIT  ( ' 0 * B) i 


DEBOOO 1 0 
DEB00020 
DEBOOO 30 
DEB00040 
DEB00050 
DEB00060 


RAGE  001 


I 


K) 

I 


FU£1  EVENT  PL  I  * 


CONVERSATIONAL  MONITOR  SYSTEM 


PAGE  00 I 


70  NE  XT  PTR ,  /.NEXT  EVENT 

70  ST IME  FIXED  BIN  (31 ) , 

70  TYPE  CHAR  (12)  VAR, 

70  INDEX  FIXED  SIN  (31 ) . 

70  PTR  PTR 


./  EVE00010 
EVE00020 
EVE00030 
EVE00040 
EVE00050 


w 

I 


conversational  monitor  system 


DCL  MSGLEN  FIXED  BIN; 

DCL  MSGPT  PTR; 

DCL  \  MSG  BASEO  (MSGPT) , 

2  LEN  FIXED  BIN, 

2  STR  CHAR  (MSGLEN  REFER  (LEN)); 


MSGOOOfO 

MSG00020 

MSG00030 

MSG00040 

MSGOOOSO 

MSG00060 


8£T 


FILE.'  PARAMS  PL  J  A 


CONVERSATIONAL  MONITOR  SYSTEM 


PACE  001 


DCL  1  PARAMS  EXTERNAL  STATIC,  PAROOOtO 

2  THRU  RATE  FIXED  BIN  (31,7),  PAR00020 

2  OELAY_GB.CC  FIXEO  BIN  (31),  PAR00030 

2  DEL AV.GC.GB  FIXED  BIN  (31),  PAR00040 

2  TERMINALS  FIXED  BIN;  PAROOOSO 


PAR00060 


I 


I 


FILE 

‘  PFIEVEL  PLI  A 

CONVERSATIONAL  MONITOR  SYSTEM 

PAGE  00 1 

DCL 

PT.LEVEL  PTR; 

PFLOOOIO 

OCL 

1  PF. LEVEL  BASED  (PT  LEVEL), 

2  LEVEL  FIXED  BIN,” 

2  PTR  PTR; 

PFL00020 

PFL00030 

PFL00040 

PFL00050 

PFL00060 

o 


FILE*  PFMSG 


PLI 


A 


conversational  monitor  system 


OCL  PT_M$G  PTR; 

OCL  1  Pf  MSG  BASEO  (PT_MSG). 
2  LEN  FIXED  BIN, 

2  TYPE  CHAR  (12)  VAR, 

2  PTR  PTRJ 


PFMOOOIO 

PFM00020 

PFM00030 

PFM00040 

PFM00050 

PFM00060 

PFM0OU7O 


PFS  p>-t 


T.S  PTR: 

pF  S  BASED  (PT_S). 
2  LEN  FIXED  BIN. 

2  PTH  FTR; 


CONVERSAT IQNAL  MONITOR  SYSTEM 


PAGE  00 I 


PFSOOOtO 

PFS00020 

PFS00030 

PFS00040 

PFSOOOSO 

PFS00060 


143- 


FILE:  pfsvc  pli  a  conversational  monitor  system  PAGE  001 


OCL  PT_SVC  PTR;  PFSOOO 1 0 

PFS00020 

OCL  1  PF_SVC  BASED  (PT_$VC),  PFS00030 

2  SVC  CHAR  (7)  VAR,  PFS00040 

2  PTR  PTR;  PFSOOOSO 

PFS00060 


1 


rue:  queues  pu 


OCL  SQUEUE 
OCL  EQUEUE 


(0:M»<0) 

(0:MA*0) 


PTR 

PTR 


external 

external 


STATIC; 

STATIC; 


CONVERSATIONAL  MONITOR  SYSTEM 

qs  oooio 

QS  00020 
QS  00030 


PAGE  001 


t 


145 


FILE:  S»VBIK  PLI  A 


XOECLARE  MAXSAVBVTE  FIXED; 
XOECLARE  MAXSAVWORO  FIXED; 

XMAASAVBYTE  «  1000; 

XMAXSAVWORD  <  250; 

DCL  NEwSAVB  LK  PTR ; 

DCL  1  SAVBE  K  BASED  ( NEWSAVtlLX  )  , 
2  NEXT  PIR, 

2  AOOR  FIXED  BIN  (31), 

2  SIZE  FIXED  BIN  (31). 

2  AREA  (MAXSAVWORO)  FIXED 

XOEACTIVATE  MAXSAVWORO; 

I 


I 


CONVERSATIONAL  MONITOR  SYSTEM 


PAGE  001 


/•  NEXT  SAVED  ITEM 
/•  BEG  AOOR  OF  SAVED  ITEM 
/•  SIZE  OF  SAVED  ITEM 
BIN  (31); 


SAV00010 
SAV00020 
SAV00030 
SAV00040 
SAV00050 
SAV00060 
SAV00070 
SAV00080 
SAV00090 
•/SAVOO 1 00 
•/SAV001 10 
•/SAV00I30 
SAV001 30 
SAVOO 140 
SAVOO ISO 
SAVOO 160 


mi:  SVRX  PL  I  A  CONVERSATIONAL  MONITOR  SYSTEM  PAGE  001 


OCL  TH1SSVR  PTR  EXTERNAL  STATIC;  /•  ->  CURRENT  SVR,  SET  BY  SAHER  •/  SVR00010 

SVR00020 

OCL  1  SVR  BASEO  ( THISSVR) ,  XINCLUOE  SVR;  S  SVR00030 

SVR00040 


I 

H* 

I 


Flt£S  VP*  Pll  A 


CONVERSATIONAL  MONITOR  SYSTEM 


PAGE  001 


DCL  TMISVP  PTR  EXTERNAL  STATIC;  /•  ->  CURRENT  VP,  SET  BY  VPER  */VPX00010 

VPX00020 

DCL  1  VP  BASED  (TMISVP),  XlNCLUDE  VP;  ;  VPX00030 

VPX00040 


APPENDIX:  LISTINGS  OF  MACRO  FILES  (ENTRY  DECLARATIONS) 


MACRO  FILES: 

CONS 

EXECUTE 

GET4 

QEVENT 

RTIMER 

RTSTK 

STIMER 

SVCER 

SVSTK 

USERS 

VPSTART 


-150- 


1ST 


>r  c 


FILE:  3EVENT  PLl  * 


CONVERSATIONAL  MONITOR  SYSTEM 


PAGE  00 t 


DCL  OEVENT  ENTRY  (FIXEO  BIN,  FIXED  BIN  (31),  CHAR(«)  VAR, 
FIXED  BIN  (31).  PTR); 


0EV0001 0 
QEV00020 


I 


I 


I  » 


rue:  rtimer  PtI 


DCt  RTIMER 


entry  returns  (F«EO  Bin  (31  Hi 


CONVERSES IOMAL  MONITOR  SYSTEM 

RtlOOOtO 


PACE  001 


Ul 

I 


156- 


i 


FILE:  rtstk  PL! 


A 


CONVERSATIONAL  MONITOR  SYSTEM 


PAGE  001 


DCL  RTSTK  ENTRY  ( PTR,  FIXED  BIN  (31))  RTS00010 

OPTIONS  (ASSEMBLER,  INTER);  RTS00020 

RTS00030 

/•  ARG1  :  PTR  ->  SAVBLK  RTS00040 

ARG2 •  AOOR  OF  RETURN  DSA  (TOP  DSA )  RTS00050 

*/  RTS00060 

RTS00070 


I 


me:  svstk  pli 


conversat ional  monitor  system 


OCL  SVSTK  ENTRY  (PTR.  FIXED  BIM  (31)) 
OPTIONS  (ASSEMBLER,  INTER). 


/• 


ARGt :  PTR  ->  SAVBLK 
ARG2 :  AOOR  OF  RETURN 


DSA  (BOTTOM  DSA) 


•/ 


SVSOOOIO 

SVS00020 

5VS00030 

SVS00040 

SVS00050 

SVS00060 

SVSOOOTO 


PAGE  OOI 


1 


<J> 

\D 

I 


FILE:  USERS 


PLI 


A 


CONVERSATIONAL  MONITOR  SYSTEM 


PAGE  00 t 


x Include  st imer; 

DCL  SEND  ENTRY  (FIXED  BIN,  FIXED  BIN,  FIXED  BIN,  CHAR ( • )  VAR, 
FIXED  BIN,  PTR); 

DCL  WAIT  ENTRY  (FIxEO  BIN); 

OCL  SYNC  ENTRY; 

DCL  FINISH  ENTRY; 


USEOOO 1 0 
USE00020 
USE0003Q 
USE00040 
USE00050 
USE00060 
USE00070 


♦ 


file:  vpstart  plI 


CONVERSATIONAL  MONITOR  SYSTEM 


OCL  VPSTART  ENTRY  (/.  VP  ./.  CHAR( • )  VAR,  PTRJl 


END 

DATE 

FILMED 

8  8 


